module TExpectedActual where fullSig :: [Int] -> Int fullSig = go where go = head . reverse