(fset 'i
   [?\C-s ?a ?l ?t ?= ?" ?p ?d ?f ?" ?\C-m right ?\C-  ?\C-x ?x ?a ?\C-r ?< ?\C-m ?\C-w ?\C-s ?> ?\C-m ?\C-y])

(fset 'j
   [?\C-s ?a ?l ?t ?= ?" ?p ?o ?s ?t ?s ?c ?r ?i ?p ?t ?" ?\C-m right ?\C-  ?\C-x ?x ?a ?\C-r ?< ?\C-m ?\C-w ?\C-s ?> ?\C-m ?\C-y])