f(x:s)|s>[]=x:'b':s++"b"|1>0="ab"
main=interact$f