Create Pattern.hs

Tror att substitute fungerar, fungerade i GHCi.