module Pair where

data Pair = Pair { first :: Int, second :: Int }