0. #lang racket
1.  
2. (require 2htdp/image )
3.  
4. (define Hs (rectangle 5 20 'solid 'black))
5. (define Vs (rotate 90 Hs))
6.  
7. (define empty (rectangle 20 20 'solid 'white))
8.  
9.  
10.  
11. (define Ew (overlay/align "left" "top"  Hs empty))
12. (define Ww (overlay/align "right" "top"  Hs empty))
13. (define Sw (overlay/align "right" "bottom"  Vs empty))
14. (define Nw (overlay/align "right" "top"  Vs empty))
15.  
16.  
17. (define SEw (overlay/align "middle" "center" Ew Sw))
18. (define SWw (overlay/align "middle" "center" Nw Ww))
19. (define NEw (overlay/align "middle" "center" Nw Ew))
20. (define NWw (overlay/align "middle" "center" Nw Ww))
21.  
22.  
23. (define SENw (overlay/align "middle" "center" Sw Ew Nw))
24. (define EMWw (overlay/align "middle" "center" Ew Nw Ww))
25. (define NWSw (overlay/align "middle" "center" Nw Ww Sw))
26. (define WSEw (overlay/align "middle" "center" Ww Sw Ew))
27.  
28.  
29. (define Cr (circle 2 'outline 'black))
30.  
31. (define apw (list Ew Sw Ww Nw SEw SWw NEw NWw SENw EMWw NWSw WSEw ;Cr
32.                   ))
33. (define (pick-item l)
34.   (list-ref l (random (length l))))
35.  
36. (define (pr) (pick-item apw))
37.  
38. (define (row) (beside (pr)(pr)(pr)(pr)(pr)(pr)(pr)(pr)(pr)))
39. (define (tbl) (above (row)(row)(row)(row)(row)(row)(row)(row)))
40.  
41.  
42. (define maze (above (beside (tbl)(tbl)(tbl))(beside (tbl)(tbl)(tbl))(beside (tbl)(tbl)(tbl))))
43. (list maze)

=>

(list )