variables fixed by dianne

main=f[];f e=do s<-getLine;last$f(s:e):[putStrLn[head$[minimum q|c=='?',q<-e,maximum s`elem`q]++[c]|c<-s]|'?'<-s];f e

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page