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