segs by mushi

(use srfi-1)(let*((a(read-line))(l(string-length a)))(for-each print(reverse(append-map(lambda(x)(reverse(map(lambda(y)(substring(substring a x l)0 y))(iota(- l x)1))))(iota l)))))\x0d

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page