;;;generate-maze: num -> Maze
(define (generate-maze n)
  (local [(define (generate-maybedoor dummy)
            (if (> (random 10) 5) #f (generate-maze (sub1 n))))]
    (cond [(zero? n) #f]
          [else (make-room (generate-maybedoor 0) (generate-maybedoor 0)
                           (generate-maybedoor 0) (generate-maybedoor 0))])))
#;to remove dead ends
(define (room=? r1 r2)
  (andmap ( r1 r2))