; The Le-Lisp Benchmarks (18) : puzzle

defmodule     triang
files         (triang)
export        (check-triang meter-triang test-triang)
import        (checkmet)

;;; Added automatically, don't type beyond this line.
cpexport
((check-triang subr0 ()) (meter-triang subr0 ()) (test-triang subr1 ()))
cpfunctions
((gogogo subr1) (triang-try subr2) (triang-last-position subr0) (
vector-to-list subr1))
cpimport
((checkmet (check-value . subr2) (perform-meter . subr2)))