> (print-shape '(block 2 3) 10 10) ........... .##........ .##........ .##........ ........... ........... ........... ........... ........... ........... ........... ;Evaluation took 140 mSec (30 in gc) 407099 cells work, 39 bytes other # > (print-shape '(triangle 2 ne) 10 10) ........... .##........ ..#........ ........... ........... ........... ........... ........... ........... ........... ........... ;Evaluation took 150 mSec (50 in gc) 458676 cells work, 37 bytes other # > (print-shape '(triangle 3 nw) 10 10) ........... .###....... .##........ .#......... ........... ........... ........... ........... ........... ........... ........... ;Evaluation took 140 mSec (50 in gc) 452896 cells work, 37 bytes other # > (print-shape '(triangle 4 se) 10 10) ........... .#......... .##........ .###....... .####...... ........... ........... ........... ........... ........... ........... ;Evaluation took 170 mSec (80 in gc) 485896 cells work, 37 bytes other # > (print-shape '(triangle 5 sw) 10 10) .....#..... ....##..... ...###..... ..####..... .#####..... ........... ........... ........... ........... ........... ........... ;Evaluation took 150 mSec (110 in gc) 472386 cells work, 37 bytes other # > (print-shape '(reflectx (triangle 5 nw) 3) 10 10) ........... .#####..... ..####..... ...###..... ....##..... .....#..... ........... ........... ........... ........... ........... ;Evaluation took 220 mSec (150 in gc) 681892 cells work, 39 bytes other # > (print-shape '(reflecty (triangle 5 nw) 3) 10 10) ........... .#......... .##........ .###....... .####...... .#####..... ........... ........... ........... ........... ........... ;Evaluation took 220 mSec (130 in gc) 679892 cells work, 39 bytes other # > (print-shape '(pastex (reflectx (triangle 5 nw) 3) (triangle 5 nw) 4) 10 10) ........... .#########. ..#######.. ...#####... ....###.... .....#..... ........... ........... ........... ........... ........... ;Evaluation took 270 mSec (100 in gc) 837596 cells work, 43 bytes other # > (print-shape '(pastey (pastex (block 0 0) (block 5 3) 2) (pastex (reflectx (triangle 5 nw) 3) (triangle 5 nw) 4) 3) 10 10) ........... ...#####... ...#####... ...#####... .#########. ..#######.. ...#####... ....###.... .....#..... ........... ........... ;Evaluation took 330 mSec (150 in gc) 1016271 cells work, 55 bytes other # > (print-closure (compile '(block 2 3)) 10 10) (running compile-block) ........... .##........ .##........ .##........ ........... ........... ........... ........... ........... ........... ........... ;Evaluation took 80 mSec (60 in gc) 241896 cells work, 39 bytes other # > (print-closure (compile '(triangle 2 ne)) 10 10) (running compile-triangle) ........... .##........ ..#........ ........... ........... ........... ........... ........... ........... ........... ........... ;Evaluation took 90 mSec (30 in gc) 250033 cells work, 37 bytes other # > (print-closure (compile '(triangle 3 nw)) 10 10) (running compile-triangle) ........... .###....... .##........ .#......... ........... ........... ........... ........... ........... ........... ........... ;Evaluation took 80 mSec (80 in gc) 263453 cells work, 37 bytes other # > (print-closure (compile '(triangle 4 se)) 10 10) (running compile-triangle) ........... .#......... .##........ .###....... .####...... ........... ........... ........... ........... ........... ........... ;Evaluation took 90 mSec (50 in gc) 238853 cells work, 37 bytes other # > (print-closure (compile '(triangle 5 sw)) 10 10) (running compile-triangle) .....#..... ....##..... ...###..... ..####..... .#####..... ........... ........... ........... ........... ........... ........... ;Evaluation took 90 mSec (20 in gc) 244664 cells work, 37 bytes other # > (print-closure (compile '(reflectx (triangle 5 nw) 3)) 10 10) (running compile-reflectx)(running compile-triangle) ........... .#####..... ..####..... ...###..... ....##..... .....#..... ........... ........... ........... ........... ........... ;Evaluation took 90 mSec (10 in gc) 327440 cells work, 39 bytes other # > (print-closure (compile '(reflecty (triangle 5 nw) 3)) 10 10) (running compile-reflecty)(running compile-triangle) ........... .#......... .##........ .###....... .####...... .#####..... ........... ........... ........... ........... ........... ;Evaluation took 100 mSec (10 in gc) 325440 cells work, 39 bytes other # > (print-closure (compile '(pastex (reflectx (triangle 5 nw) 3) (triangle 5 nw) 4)) 10 10) (running compile-pastex)(running compile-reflectx)(running compile-triangle)(running compile-triangle) ........... .#########. ..#######.. ...#####... ....###.... .....#..... ........... ........... ........... ........... ........... ;Evaluation took 140 mSec (40 in gc) 410846 cells work, 43 bytes other # > (print-closure (compile '(pastey (pastex (block 0 0) (block 5 3) 2) (pastex (reflectx (triangle 5 nw) 3) (triangle 5 nw) 4) 3)) 10 10) (running compile-pastey)(running compile-pastex)(running compile-block)(running compile-block)(running compile-pastex)(running compile-reflectx)(running compile-triangle)(running compile-triangle) ........... ...#####... ...#####... ...#####... .#########. ..#######.. ...#####... ....###.... .....#..... ........... ........... ;Evaluation took 150 mSec (110 in gc) 465932 cells work, 55 bytes other # >  ()