alex-2.1.0: examples/words.x

-- Performance test; run with input /usr/dict/words, for example
{
module Main (main) where
}

%wrapper "basic"

words :-

$white+			;
[A-Za-z0-9\'\-]+	{ \s -> () }

{
main = do
 s <- getContents
 print (length (alexScanTokens s))
}