take is a function that accepts an integer value and a list and returns a list
take
take :: Int -> [a] -> [a]
Experiment with the take function