START my-trap
    TRAP sigint
        PUT message
        TRAP sigint DEFAULT
    END TRAP

    WHILE forever
        INCREMENT count
        PUT loop prompt
        READ and discard
    END WHILE

    PUT ending message
    EXIT
END my-trap
