main=interact$(>>=g).("New file\n*i\n!1:*"++).(++"\n*q\nAbort edit (Y/N)? y").(["Nice\n!2:*To\n!3:*Meet\n!4:*You\n!5:*^Z\n*1\n!1:*Nice\n!1:*Rice\n*3\n!3:*Meet\n!3:*Meat\n*l\n!1: Rice\n!2: To\n!3:*Meat\n!4: You","1\n!2:*2\n!3:*4\n!4:*5\n!5:*^Z\n*3i\n!3:*3\n!4:*^Z\n*1d\n*l\n!1:*2\n!2: 3\n!3: 4\n!4: 5","skjg;sdrljagjk\n!2:*"++j++"!3:*"++f++"!4:*^Z\n*1Sf\n!2: "++j++"*2Sf\n!2:*"++j++"*3Sf\n!3: "++f++"*1?Sf\n!2: "++j++"O.K.? n\n!3:*"++f++"O.K.? n\nNot found"]!!).i.(!!2)
i s|s<'N'=1|s>'N'=2|1>0=0
g '!'=" "
g a=[a]
j="jfaiowperjvkaj\n"
f="fawpfjkgf;ap;g\n"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).