RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Slope/create-a-two-dimensional-array-at-runtime.slope

(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"))