RosettaCodeData/Task/Conditional-structures/Modula-3/conditional-structures-4.mod3

TYPECASE ref OF
| NULL => IO.Put("Null\n");
| CHAR => IO.Put("Char\n");
| INTEGER => IO.Put("Integer\n");
ELSE
  IO.Put("Something\n");
END;