(##import pawn)

(let ((tasks (fold-result-or-pawn-ex
	      (open-pawnfile)
	      (list get-tasks)
	      pawn-ex->error)))
  (fold-result-or-pawn-ex
   (get-command)
   (list
    (lambda (cmd) (get-task tasks cmd))
    setup-task
    get-cmds
    run-cmds)
   pawn-ex->error))