print {"N","New file
*i
       1:*Nice
       2:*To
       3:*Meet
       4:*You
       5:*^Z
*1
       1:*Nice
       1:*Rice
*3
       3:*Meet
       3:*Meat
*l
       1: Rice
       2: To
       3:*Meat
       4: You
*q
Abort edit (Y/N)? y",1,"New file
*i
       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
*q
Abort edit (Y/N)? y","s","New file
*i
       1:*skjg;sdrljagjk
       2:*jfaiowperjvkaj
       3:*fawpfjkgf;ap;g
       4:*^Z
*1Sf
       2: jfaiowperjvkaj
*2Sf
       2:*jfaiowperjvkaj
*3Sf
       3: fawpfjkgf;ap;g
*1?Sf
       2: jfaiowperjvkaj
O.K.? n
       3:*fawpfjkgf;ap;g
O.K.? n
Not found
*q
Abort edit (Y/N)? y"}->{substr(join("",<>),2,1)}