my$a=substr $*IN.get,0,1;$a=3 if$a eq'k';$a=214 if$a eq'I';say $a