- simply returns the same parameter

-- output check function
check :: Int -> Int -> (Int, Int, Bool)
check i o = (i, result, o == result)
    where result = process i

check :: Int -> Int -> (Int, Int, Bool)
check i o = (i, result, o == result)
    where result = process i
check i o = (i, result, o == result)
    where result = process i