: dial
0 -rot 0 ?do
dup c@
dup 'Q' > if 1- dup 'W' > if 1- then then
'A' 9 - - 3 / rot + swap
1+
loop
drop .
;

pad dup 250 accept dial


포스답게 스택조작만 이용해봤다.