m@main=getLine>>=putStrLn.f>>m f x|(x>".")/=elem '('x="smiley"|0<1="frowny"