-- Slide 57

ioLength::IO Int
ioLength = do
	x <- getLine
	return (length x)

main = ioLength >>= print