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