Update Pattern.hs

Utökat match, dessa två exempel fungerar:
match 'x' "2*x+3" "2*7+3" = Just "7"
match '*' "frodo" "gandalf" = Nothing