(##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))