import Maybe
import Data.List

lcase str =
	[ if elem c ['A'..'Z']
		then ['a'..'z'] !! fromMaybe 0 (elemIndex c ['A'..'Z'])
		else c | c <- str
	]

main = do {
	print (lcase "Moo")
}