(read)(format t"New file
*i
~{~7T~@?
~}*q
Abort edit (Y/N)? y"(case(read)(nice'(#1="1:*Nice""2:*To"#3="3:*Meet""4:*You""5:*^Z
*1"#1#"1:*Rice
*3"#3#"3:*Meat
*l""1: Rice""2: To""3:*Meat""4: You"))(1'("1:*1""2:*2""3:*4""4:*5""5:*^Z
*3i""3:*3""4:*^Z
*1d
*l""1:*2""2: 3""3: 4""4: 5"))(t(list"1:*skjg~A"#7=(read-line)"2:*~A"(set'a #7#)"3:*~A"(set'b #7#)"4:*^Z
*1Sf""2: ~A
*2Sf"a"2:*~A
*3Sf"a"3: ~A
*1?Sf"b"2: ~A
O.K.? n"a"3:*~A
O.K.? n
Not found"b))))