{- Take the specified number of characters
from the given string -}
strExtract :: Int -> String -> String
strExtract x s = take x s