Adde some snippets

Added templatehaskell, if, spilitRead