module BadAlt

import Prelude

foo : List Int → Int
foo (xs :< x) = x