main = do cs <- getContents print $ length $ words cs
main = do cs <- getContents
print $ length $ words cs
jfk001
