norm kwdw
cal setpos('.',[0,2,str2nr(getreg()),0])
norm %
pu =getpos('.')[2]
p