(define triangles (make-list 10 (triangle 40 30)))
(apply hc-append triangles) ; see combinators