%%HP: T(3)A(R)F(.);

DIR
 \->ZQ
        \<< DUP IP SWAP FP \->Q + \>>
 I\->Q
        \<< RCLF 3 ROLLD FIX \->Q SWAP STOF \>>
 I\->Q\Gp
        \<< RCLF 3 ROLLD FIX \->Q\Gp SWAP STOF \>>
 I->ZQ
        \<< RCLF 3 ROLLD FIX \->ZQ SWAP STOF \>>
END
