type Name = String

lowerName :: Name -> Name
lowerName = map toLower

-- then:
lowerName "KELAN" -- evaluates to "kelan"