module Filtering where

import Data.Array (filter)
import Data.String (split, Pattern(..))
import Prelude

myFilter :: String -> Array String
myFilter input = filter (\x -> x /= "a" && x /= "the") (split (Pattern " ") input)