-- -phone-number

module CreatePhoneNumber where

createPhoneNumber :: [Int] -> String
createPhoneNumber intList = let s = (!!) $ map show intList
    in "(" ++ s 0 ++ s 1 ++ s 2 ++ ") " ++ s 3 ++ s 4 ++ s 5 ++ "-" ++ s 6 ++ s 7 ++ s 8 ++ s 9

 -phone-number

module CreatePhoneNumber where

createPhoneNumber :: [Int] -> String
createPhoneNumber intList = let s = (!!) $ map show intList
    in "(" ++ s 0 ++ s 1 ++ s 2 ++ ") " ++ s 3 ++ s 4 ++ s 5 ++ "-" ++ s 6 ++ s 7 ++ s 8 ++ s 9
