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"