: ss ( u --> )
     >R 0 ( либо вместо нуля 2000 ms ahead  либо проверка внутри цикла) 
     intcnt off -1
     BEGIN IF 2000 ms ahead THEN
           intcnt @ DUP R@ < WHILE
                    SWAP timeout? THROW drop
           TUCK -
         10 ms sleep
     REPEAT RDROP 2DROP ;