id x = x

x = id ("\n")

find : Text -> Text
find s = match (Text.take 1 s) with
  "\n" -> "found"
  _   -> "not found"

> (x, find "\nbar")