http://projecteuler.net/index.php?section=problems&id=42 let read_names (file : string) =は、 let read_names file =ではなぜか動きません。