g=getLine m@main=((g>>=).(f.).(.words).zipWith(++).words=<<g)>>m f(x:y)=putStrLn$show([z|(z,w)<-zip[1..]y,w==x]!!0)++' ':x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page