store-procedure oops 
insert-string "é"
~endm
map I ié
map J iue9
map K :setl fk=8bit
map M :oops