; The Le-Lisp Benchmarks (17) : puzzle

defmodule     puzzle
files        (puzzle)
export       (check-puzzle meter-puzzle test-puzzle)
import       (checkmet setf format)

;;; Added automatically, don't type beyond this line.
cpexport
((check-puzzle subr0 ()) (meter-puzzle subr0 ()) (test-puzzle subr1 ()))
cpfunctions
((puzzle-start subr0) (definepiece nsubr) (fit subr2) (place subr2) (trial 
subr1) (puzzle-remove subr2))
cpimport
((checkmet (check-value . subr2) (perform-meter . subr2)) (format (format . 
nsubr)))