HHC 2022 - Programming Contest - no responses until after 6am Monday 6am CENTRAL

[Gerald H]

A possibly licit entry for 50g but is more verbose than allowed by rules:

Code:

Size: 153.50

CkSum: # 5EFFh

::
  CK1&Dispatch
  # FF
  ::
    DUP
    "Seed"
    >TAG
    "Iteration "
    BINT0
    4ROLL
    DUP
    FPTR2 ^Z>S
    'EvalNoCK:_sup_
    xSREV
    FPTR2 ^S>Z
    BEGIN
    FPTR2 ^QAdd
    SWAP#1+SWAP
    3PICK3PICK
    #>$
    &$
    BIGDISPROW1
    DUP
    FPTR2 ^Z>S
    DUP
    BIGDISPROW3
    'EvalNoCK:_sup_
    xSREV
    DUP
    DISPROW5
    FPTR2 ^S>Z
    2DUP
    EQUAL
    UNTIL
    DROP
    3UNROLL
    FPTR2 ^#>Z
    SWAP
    >TAG
    SWAP
  ;
;