(use srfi-13)(define (i x)(if (null? x)'(())(cons '() (map (pa$ cons (car x)) (i (cdr x))))))(define (t x)(if (null? x)'(())(cons x (t (cdr x)))))(define (segs x)(apply append (map (compose reverse cdr i) (t x))))(map (compose print (pa$ apply string)) (reverse (segs (string->list (read-line)))))