Modula3でFizzBuzz

Case文がパターンマッチっぽい.

MODULE Main;
IMPORT IO;

BEGIN
     FOR i := 1 TO 100 DO
     	  CASE i MOD 15 OF
     	  | 0 => IO.Put("FizzBuzz");
	  | 3,6,9,12 => IO.Put("Fizz");
	  | 5,10 => IO.Put("Buzz");
	  ELSE
	       IO.PutInt(i);
	  END;
	  IO.Put("\n");
     END;

END Main.