>>840
(define my_makelist (cut iota <> 1))
(define (my_max l) (apply max l))