a = 5 :: Long
main = match a with
  1 -> "wrong"
  2 -> "wrong"
  5 -> "right"
  6 -> "wrong"
  _ -> "wrong"
--
right