PROGRAM throw
    USE Rollem
    IMPLICIT NONE
    INTEGER :: k, n

    DO k = 1,10
        n = twodice()
        PRINT *, n
    END DO
END PROGRAM throw
