extra/benchmark/typecheck1/typecheck1.factor

   1 USING: math kernel ;
   2 IN: benchmark.typecheck1
   3
   4 TUPLE: hello n ;
   5
   6 : foo ( obj -- obj n ) 0 100000000 [ over hello-n + ] times ;
   7
   8 : typecheck-main ( -- ) 0 hello boa foo 2drop ;
   9
  10 MAIN: typecheck-main