tuple_destructive.fc.fift

PROGRAM{
  DECLPROC fn
  DECLPROC main
  fn PROC:<{
    6 UNTUPLE
    DROP
    s4 s3 XCHG2
    ADD
    SWAP
    ADD
    ROT
    ADD
    SWAP
    ADD
  }>
  main PROC:<{
    1 PUSHINT
    2 PUSHINT
    3 PUSHINT
    4 PUSHINT
    5 PUSHINT
    6 PUSHINT
    7 PUSHINT
    PAIR
    6 TUPLE
    fn CALLDICT
    DROP
  }>
}END>c