(map(rec'r(map(rec'x(dotimes'(string-scan" h f cdig eb a"x)(display #`" ,|x|")))r)(print))(apply append(map make-list'(15 3 4 1 9)(map string->list'("ab""acd""efcd""eghd""egi")))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).