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