$B2a5n(B($BMn$H$9(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)).
current_goal(user,$B;}$D(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B),nil,[]).
$B$O$$(B.
$B$$$$$((B.
$B%[%F%k(B.
$B$=$l$G(B.
current_goal_and_plan(user,
                      ($B40N;(B(user,$B496b(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)),
                       $B40N;(B(user,$B496b(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)),
                       plan($B?=@A(B(user,$B496b(B($B%H%i%Y%i!<%:%A%'%C%/(B),$B6d9T(B),
                            [$B3+$$$F$$$k(B($B6d9T(B)],
                            [],
                            [],
                            [],
                            [],
                            [$B40N;(B(user,$B496b(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B))],
                            [$B$"$k(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)],
                            $B40N;(B(user,$B496b(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)))),
                      plan($B?=@A(B(user,$B496b(B($B%H%i%Y%i!<%:%A%'%C%/(B),$B6d9T(B),
                                            [$B3+$$$F$$$k(B($B6d9T(B)],
                                            [],
                                            [],
                                            [],
                                            [],
                                            [$B40N;(B(user,$B496b(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B))],
                                            [$B$"$k(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)],
                                            $B40N;(B(user,$B496b(B(user,$B%H%i%Y%i!<%:%A%'%C%/(B)))).
halt.