(define width (string->number (read-line)))
(define height (string->number (read-line)))
(if (and width height)
  (list-seed height (list-seed width #t))
  (! "A non-number value was submitted"))