sub GOLF {
local$_=pop;@_{@_=(
0..9,A..Z)}=0..35;s
/([^Z])(Z*)$/$_[$_{
$1}+1].$-x length$2
/e?$_:1 .$-x y!!!c
}