foo : List Char -> ()
foo cs = case cs of
  "bar" => ()
  _ => ()