f(x:y:z)=z++g x
g 'a'="bc"
g 'b'="a"
g x="aaa"
main=""#"aaaaaaaaabc"
y#x=putStrLn(y++x)>>(y++"  ")#f x