(define (prl k m)
(define (print-line n)
(cond ((> n 0) (display n)
(print-line (- n 1)))
(else (newline))))
(print-line k)
(cond ((> m 1) (prl (+ k 1) (- m 1)))))
(prl 3 4)
(newline)
(prl 1 4)
KGRlZmluZSAocHJsIGsgbSkKICAoZGVmaW5lIChwcmludC1saW5lIG4pCiAgICAoY29uZCAoKD4gbiAwKSAoZGlzcGxheSBuKQogICAgICAgICAgICAgICAgICAgKHByaW50LWxpbmUgKC0gbiAxKSkpCiAgICAgICAgICAoZWxzZSAobmV3bGluZSkpKSkKICAocHJpbnQtbGluZSBrKQogIChjb25kICgoPiBtIDEpIChwcmwgKCsgayAxKSAoLSBtIDEpKSkpKQoKCihwcmwgMyA0KQoobmV3bGluZSkKKHBybCAxIDQp