f("else":s)=f s
f("then":s)=f s
f("if":s)=(last$c:[b|a>"g"],z)where(a,x)=f s;(b,y)=f x;(c,z)=f y
f(x:s)=(x,s)
m@main=getLine>>=putStrLn.fst.f.words>>m