1 2 3 4 5 6 7 8 9 10 11 12 13 14
MODULE proccard ; FROM NumberIO IMPORT WriteCard ; FROM StrIO IMPORT WriteString, WriteLn ; PROCEDURE func () : CARDINAL ; BEGIN RETURN 42 END func ; BEGIN WriteString ('the value is: ') ; WriteCard (func, 5) ; WriteLn END proccard.