opcodes[]:

global scope global
{
  global scope implicit__threadring
  {

    O kill ( O )
    {
      var O ANON
      dup                 ( -- O¢ )
      item+8 "signal1"    ( -- signal(Object¢, int32)[]& )
      peek                ( signal(Object¢, int32)[]& -- signal(Object¢, int32)[]¢ )
      dispose             ( signal(Object¢, int32)[] -- )
      kill                ( Object -- Object )
    }
  }
  type utf8str:
  type ucs1str:
  type ucs2str:
  type ucs4str:
  global scope vt100
  {
  }

  void fu ( uint32 i )
  {
    var uint32 i
    var Sema¢ a
    var Sema¢ e
    gvar-20 "s"         ( -- Sema[503]& )
    peek                ( Sema[503]& -- Sema[503]¢ )
    lvar+0+8 "i"        ( -- uint32& )
    peek                ( uint32& -- uint32 )
    atindex             ( Sema[503]¢, int32 -- Sema& )
    peek                ( Sema& -- Sema¢ )
    gvar-20 "s"         ( -- Sema[503]& )
    peek                ( Sema[503]& -- Sema[503]¢ )
    lvar+0+16 "i"       ( -- uint32& )
    pppeek              ( uint32& -- uint32 )
    503                 ( -- uint32 )
    %                   ( uint32, uint32 -- uint32 )
    atindex             ( Sema[503]¢, int32 -- Sema& )
    peek                ( Sema& -- Sema¢ )
    L970:
    lvar-8+16 "a"       ( -- Sema¢& )
    peek                ( Sema¢& -- Sema¢ )
    request             ( Sema¢ )
    gvar-4 "N"          ( -- uint32& )
    peekmm              ( uint32& -- uint32 )
    !!                  ( uint32 -- bool )
    jp_z                ( bool -- ) -> L971
    lvar-16+16 "e"      ( -- Sema¢& )
    peek                ( Sema¢& -- Sema¢ )
    release             ( Sema¢ )
    jp                  ( -- ) -> L970
    L971:
    ""                  ( -- utf8str¢ )
    retain              ( utf8str¢ -- utf8str )
    lvar+0+24 "i"       ( -- uint32& )
    peek                ( uint32& -- uint32 )
    numstr              ( uint32 -- utf8str )
    catstr              ( utf8str, utf8str -- utf8str )
    "\n"                ( -- utf8str¢ )
    retain              ( utf8str¢ -- utf8str )
    catstr              ( utf8str, utf8str -- utf8str )
    print               ( utf8str )
    gvar-12 "done"      ( -- Sema& )
    peek                ( Sema& -- Sema¢ )
    release             ( Sema¢ )
    drop                ( Sema¢ -- )
    drop                ( Sema¢ -- )
    drop                ( uint32 -- )
  }
  type O:

    void slot1 ( Object¢ this, int32 value )
    {
      var Object¢ this
      var int32 value
      "hi there!          (" ( -- utf8str¢ )
      retain              ( utf8str¢ -- utf8str )
      lvar+0+8 "value"    ( -- int32& )
      peek                ( int32& -- int32 )
      numstr              ( int32 -- utf8str )
      catstr              ( utf8str, utf8str -- utf8str )
      ")\n"               ( -- utf8str¢ )
      retain              ( utf8str¢ -- utf8str )
      catstr              ( utf8str, utf8str -- utf8str )
      print               ( utf8str )
      drop                ( int32 -- )
      drop                ( Object¢ -- )
    }
}
  args                ( -- utf8str[]& )
  peek                ( utf8str[]& -- utf8str[]¢ )
  count               ( utf8str[]¢ -- uint32 )
  1                   ( -- uint32 )
  >                   ( uint32, uint32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L964
  args                ( -- utf8str[]& )
  peek                ( utf8str[]& -- utf8str[]¢ )
  1                   ( -- int32 )
  atindex             ( utf8str[]¢, int32 -- utf8str& )
  peek                ( utf8str& -- utf8str¢ )
  numval              ( utf8str¢ -- uint32 )
  jp                  ( -- ) -> L965
  L964:
  1000                ( -- uint32 )
  L965:
  new                 ( -- Sema )
  4024                ( -- uint32 )
  alloc               ( uint32 -- Sema[503] )
  503                 ( -- uint32 )
  L966:
  gvar-24 "i"         ( -- uint32& )
  peek                ( uint32& -- uint32 )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L967
  new                 ( -- Sema )
  gvar-20 "s"         ( -- Sema[503]& )
  peek                ( Sema[503]& -- Sema[503]¢ )
  gvar-24 "i"         ( -- uint32& )
  mmpeek              ( uint32& -- uint32 )
  atindex             ( Sema[503]¢, int32 -- Sema& )
  poke                ( Sema, Sema& -- )
  jp                  ( -- ) -> L966
  L967:
  0                   ( -- uint32 )
  gvar-24 "i"         ( -- uint32& )
  poke                ( uint32, uint32& -- )
  L972:
  gvar-24 "i"         ( -- uint32& )
  peek                ( uint32& -- uint32 )
  1                   ( -- int32 )
  push_procptr fu     ( -- void(uint32)* )
  run                 ( int32, void(uint32) -- )
  gvar-24 "i"         ( -- uint32& )
  pppeek              ( uint32& -- uint32 )
  503                 ( -- uint32 )
  <                   ( uint32, uint32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L973
  jp                  ( -- ) -> L972
  L973:
  gvar-20 "s"         ( -- Sema[503]& )
  peek                ( Sema[503]& -- Sema[503]¢ )
  0                   ( -- int32 )
  atindex             ( Sema[503]¢, int32 -- Sema& )
  peek                ( Sema& -- Sema¢ )
  release             ( Sema¢ )
  gvar-12 "done"      ( -- Sema& )
  peek                ( Sema& -- Sema¢ )
  request             ( Sema¢ )
  16                  ( -- uint32 )
  alloc               ( uint32 -- O )
  NULL                ( -- void* )
  gvar-32 "o1"        ( -- O& )
  swapwithvar         ( O, O& -- O )
  call! kill          ( O -- O )
  dispose             ( O -- )
  8                   ( -- uint32 )
  alloc               ( uint32 -- Object )
  NULL                ( -- void* )
  gvar-40 "o2"        ( -- Object& )
  swapwithvar         ( Object, Object& -- Object )
  kill                ( Object -- Object )
  dispose             ( Object -- )
  16                  ( -- uint32 )
  alloc               ( uint32 -- O )
  16                  ( -- uint32 )
  alloc               ( uint32 -- O )
  gvar-48 "o3"        ( -- O& )
  peek                ( O& -- O¢ )
  gvar-56 "o4"        ( -- O& )
  peek                ( O& -- O¢ )
  push_procptr O.slot1 ( -- void(Object¢, int32)* )
  8                   ( -- uint32 )
  connect             ( O¢, O¢, void(Object¢, int32), uint32 -- )
  gvar-48 "o3"        ( -- O& )
  peek                ( O& -- O¢ )
  gvar-56 "o4"        ( -- O& )
  peek                ( O& -- O¢ )
  push_procptr O.slot1 ( -- void(Object¢, int32)* )
  8                   ( -- uint32 )
  connect             ( O¢, O¢, void(Object¢, int32), uint32 -- )
  gvar-48 "o3"        ( -- O& )
  peek                ( O& -- O¢ )
  item+8 "signal1"    ( -- signal(Object¢, int32)[]& )
  peek                ( signal(Object¢, int32)[]& -- signal(Object¢, int32)[]¢ )
  retain              ( signal(Object¢, int32)[]¢ -- signal(Object¢, int32)[] )
  dup                 ( -- signal(Object¢, int32)[]¢ )
  forallitems         ( signal(Object¢, int32)[]¢ -- signal(Object¢, int32)& ) -> L979
  L978:
  peeksignal          ( signal(Object¢, int32)& -- Object¢ )
  66                  ( -- int32 )
  fromr               ( -- void(Object¢, int32) )
  call_procptr        ( Object¢, int32, void(Object¢, int32) )
  L979:
  ForAllEnd .. L978
  dispose             ( signal(Object¢, int32)[] -- )
  gvar-48 "o3"        ( -- O& )
  peek                ( O& -- O¢ )
  gvar-56 "o4"        ( -- O& )
  peek                ( O& -- O¢ )
  push_procptr O.slot1 ( -- void(Object¢, int32)* )
  8                   ( -- uint32 )
  disconnect          ( O¢, O¢, void(Object¢, int32), uint32 -- )
  gvar-48 "o3"        ( -- O& )
  peek                ( O& -- O¢ )
  gvar-56 "o4"        ( -- O& )
  peek                ( O& -- O¢ )
  push_procptr O.slot1 ( -- void(Object¢, int32)* )
  8                   ( -- uint32 )
  disconnect          ( O¢, O¢, void(Object¢, int32), uint32 -- )