From: Nobody447095@here-nor-there.org   
      
   B. Pym wrote:   
      
   >   
   > : get-number ( accum adr len -- accum' adr' len' )   
   >   { adr len }   
   >   0. adr len >number { adr' len' }   
   >   len len' =   
   >   if   
   >     2drop  adr len 1 /string   
   >   else   
   >     d>s swap 60 * +   
   >     adr' len'   
   >   then ;   
   >   
   > : parse-time  ( adr len -- seconds)   
   >   0 -rot   
   >   begin   
   >     dup   
   >   while   
   >     get-number   
   >   repeat   
   >   2drop ;   
   >   
   > s" foo-bar" parse-time . 0   
   > s" foo55bar" parse-time . 55   
   > s" foo 1 bar 55 zoo" parse-time . 155   
      
   Actually prints 115.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)