let l=Array.make 14""let p=Printf.printf let(-)n _=p"*%s "l.(n)let f c i n=p"%8d:%s%s "i c l.(n)let(%),(/)=f" ",f"*"let rec($)i _=i<14&i+1$Scanf.scanf"%s@ "(Array.set l i);;0$p"New file *i ";1/1;2/2;3/3;4/4;l.(5)<"^"&6-2%2=5-0&8-3%3=7-2/2&p"O.K.? n "=2%2&p"O.K.? n Not found "=3/3||6-0=5/5&l.(1)<"N"&9-4/5=3/7&1/2=10-0&(2%7;4%4=3%3)||8-1/7=1/1&10-3/9=3/3&2%2=1%7&4%4=3/9;p"*q Abort edit (Y/N)? y"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).