// 2011.06.30 # Doj
// Маленькие вспомогательные функции

: nop ;
: 2dup over over ;
: 2drop drop drop ;
: sign ( x -- -1|0|1) dup 0= if 0 exit then 0> if 1 else -1 then ;
: secs 1000 * ;
: mins 60000 * ;
: -+sign ( x -- -1|0|1) 0>= if 1 else -1 then ;
