Tigr-m2/modula2/examples/Essai3/essai3.mod

MODULE essai3;

FROM StrIO IMPORT WriteString, WriteLn ;
FROM NumberIO IMPORT WriteCard;
FROM SYSTEM IMPORT CAST;

VAR 
    x : BITSET;

BEGIN
    x := {1,0};
    WriteCard(CAST(CARDINAL, x), 0);
    WriteLn;
END essai3.