old/runtime-generic/test.icl

   1 module test
   2
   3 import StdEnv => qualified return
   4 import iTasks
   5
   6 derive class iTask UInt8
   7
   8 Start w = startEngine t w
   9
  10 :: UInt8 =: UInt8 Int
  11
  12 t :: Task UInt8
  13 t = enterInformation () []