Prelude> let echo = mapM_ putStrLn . takeWhile (not . null) . iterate tail
Prelude> echo "yonkeltron"
yonkeltron
onkeltron
nkeltron
keltron
eltron
ltron
tron
ron
on
n