(define save-random-state (make-random-state *random-state*))
(load "e:/tlplan-v3.0/scheme-version/tlplan")

(set! plan-successor-fn ss-fn3)

(load-domain 'blocks)

(set-initial-world (random-world 50))
(set-goal (random-world 50))
(plan)

(load-domain 'schedule)
(set-initial-world (random-world 15))
(set-goal (random-goal 15))
(plan)

(set! *random-state* (make-random-state save-random-state))
