1 -- Performance test; run with input /usr/dict/words, for example
2 {
3 module Main (main) where
4 }
5 
6 %wrapper "posn"
7 
8 words :-
9 
10 $white+			;
11 [A-Za-z0-9\'\-]+	{ \p s -> () }
12 
13 {
14 main = do
15  s <- getContents
16  print (length (alexScanTokens s))
17 }
18