RosettaCodeData/Task/Binary-strings/Haskell/binary-strings-5.hs

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