pgost
z psx+1
 f<><>(x)- . <
 y?
 pgoz
dn d
 f<>=. <><
 y?
 p
 b
 f<><<
 y?
 p
 pqt
st pnd
 ppr 
 p
 psx1000
 b
 f<<><
 y?
 p
 b
 ppr
 ppr    *** busy - please wait ***
 ppr