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