5 lines
196 B
Text
5 lines
196 B
Text
(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"))
|