: apply-twice ( Int [ Int -- Int ] -- Int )
    tuck call swap call
;

: test-higher-order ( -- )
    5 [ 3 i.+ ] apply-twice
    11 test.assert-eq

    2 [ dup i.* ] apply-twice
    16 test.assert-eq
;
