opcodes[]:

global scope global
{
  global scope implicit__fannkuch
  {
  }
  type utf8str:
  type ucs1str:
  type ucs2str:
  type ucs4str:
  global scope vt100
  {
  }
}
  args                ( -- utf8str[]& )
  peek                ( utf8str[]& -- utf8str[]¢ )
  count               ( utf8str[]¢ -- uint32 )
  2                   ( -- 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¢ -- int32 )
  jp                  ( -- ) -> L965
  L964:
  7                   ( -- int32 )
  L965:
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  alloc               ( uint32 -- int8[] )
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  alloc               ( uint32 -- int8[] )
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  alloc               ( uint32 -- int8[] )
  0                   ( -- int32 )
  0                   ( -- int32 )
  0                   ( -- int32 )
  0                   ( -- int32 )
  0                   ( -- int32 )
  0                   ( -- int32 )
  0                   ( -- int32 )
  0                   ( -- int32 )
  gvar-56 "i"         ( -- int32& )
  poke                ( int32, int32& -- )
  L966:
  gvar-56 "i"         ( -- int32& )
  peek                ( int32& -- int32 )
  cast                ( int32 -- int8 )
  gvar-20 "perm1"     ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  gvar-56 "i"         ( -- int32& )
  peek                ( int32& -- int32 )
  atindex             ( int8[]¢, int32 -- int8& )
  poke                ( int8, int8& -- )
  gvar-56 "i"         ( -- int32& )
  pppeek              ( int32& -- int32 )
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  <                   ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L967
  jp                  ( -- ) -> L966
  L967:
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-52 "r"         ( -- int32& )
  poke                ( int32, int32& -- )
  L970:
  gvar-52 "r"         ( -- int32& )
  peek                ( int32& -- int32 )
  1                   ( -- int32 )
  !=                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L971
  gvar-52 "r"         ( -- int32& )
  peek                ( int32& -- int32 )
  cast                ( int32 -- int8 )
  gvar-28 "Count"     ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  gvar-52 "r"         ( -- int32& )
  peek                ( int32& -- int32 )
  1                   ( -- uint32 )
  -                   ( int32, uint32 -- int32 )
  atindex             ( int8[]¢, int32 -- int8& )
  poke                ( int8, int8& -- )
  gvar-52 "r"         ( -- int32& )
  --                  ( int32& -- )
  jp                  ( -- ) -> L970
  L971:
  gvar-20 "perm1"     ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  cast                ( int8[]¢ -- int8[to] )
  gvar-12 "perm"      ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  cast                ( int8[]¢ -- int8[to] )
  copyrange           ( int8[to], int8[to] -- )
  0                   ( -- int32 )
  gvar-44 "flipCount" ( -- int32& )
  poke                ( int32, int32& -- )
  L972:
  gvar-12 "perm"      ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  0                   ( -- int32 )
  atindex             ( int8[]¢, int32 -- int8& )
  peek                ( int8& -- int8 )
  cast                ( int8 -- int32 )
  gvar-48 "k"         ( -- int32& )
  poke                ( int32, int32& -- )
  gvar-48 "k"         ( -- int32& )
  peek                ( int32& -- int32 )
  !!                  ( int32 -- bool )
  jp_z                ( bool -- ) -> L973
  gvar-12 "perm"      ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  0                   ( -- int32 )
  gvar-48 "k"         ( -- int32& )
  peek                ( int32& -- int32 )
  1                   ( -- uint32 )
  +                   ( int32, uint32 -- int32 )
  substr              ( int8[]¢, int32, int32 -- int8[to] )
  flip                ( int8[to] -- )
  gvar-44 "flipCount" ( -- int32& )
  ++                  ( int32& -- )
  jp                  ( -- ) -> L972
  L973:
  gvar-32 "maxFlipCount" ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-44 "flipCount" ( -- int32& )
  peek                ( int32& -- int32 )
  max                 ( int32, int32 -- int32 )
  gvar-32 "maxFlipCount" ( -- int32& )
  poke                ( int32, int32& -- )
  gvar-36 "permCount" ( -- int32& )
  peek                ( int32& -- int32 )
  1                   ( -- uint32 )
  &                   ( int32, uint32 -- int32 )
  !!                  ( int32 -- bool )
  jp_z                ( bool -- ) -> L974
  gvar-44 "flipCount" ( -- int32& )
  peek                ( int32& -- int32 )
   -                  ( int32 -- int32 )
  jp                  ( -- ) -> L975
  L974:
  gvar-44 "flipCount" ( -- int32& )
  peek                ( int32& -- int32 )
  L975:
  gvar-40 "checksum"  ( -- int32& )
  +=                  ( int32, int32& -- )
  L976:
  gvar-52 "r"         ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  !=                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L979
  gvar-20 "perm1"     ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  0                   ( -- int32 )
  gvar-52 "r"         ( -- int32& )
  peek                ( int32& -- int32 )
  1                   ( -- uint32 )
  +                   ( int32, uint32 -- int32 )
  substr              ( int8[]¢, int32, int32 -- int8[to] )
  rol                 ( int8[to] -- )
  gvar-28 "Count"     ( -- int8[]& )
  peek                ( int8[]& -- int8[]¢ )
  gvar-52 "r"         ( -- int32& )
  peek                ( int32& -- int32 )
  atindex             ( int8[]¢, int32 -- int8& )
  mmpeek              ( int8& -- int8 )
  0                   ( -- int8 )
  >                   ( int8, int8 -- bool )
  !!                  ( uint32 -- bool )
  jp_nz               ( bool -- ) -> L977
  gvar-52 "r"         ( -- int32& )
  ++                  ( int32& -- )
  jp                  ( -- ) -> L976
  L979:
  ""                  ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  gvar-40 "checksum"  ( -- int32& )
  peek                ( int32& -- int32 )
  numstr              ( int32 -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  "\n"                ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  print               ( utf8str )
  "Pfannkuchen        (" ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  gvar-4 "n"          ( -- int32& )
  peek                ( int32& -- int32 )
  numstr              ( int32 -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  ") = "              ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  gvar-32 "maxFlipCount" ( -- int32& )
  peek                ( int32& -- int32 )
  numstr              ( int32 -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  "\n"                ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  print               ( utf8str )
  0                   ( -- int32 )
  end                 ( int32 -- )
  jp                  ( -- ) -> L976
  L977:
  gvar-36 "permCount" ( -- int32& )
  ++                  ( int32& -- )
  jp                  ( -- ) -> L970