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