RosettaCodeData/Task/Elliptic-curve-arithmetic/Haskell/elliptic-curve-arithmetic-1.hs

import Data.Monoid
import Control.Monad (guard)
import Test.QuickCheck (quickCheck)