randomNumber : function() return integer is
-- This random number generator makes use of the compiler's ability to 
-- synthesize new objects of a given type, in this case of integers.
-- Since we do not care at all about the distribution, this is good enough.
    number : integer;
begin
   return (number);
end;

get_number : function (prompt : string) return integer is
-- After displaying the prompt on standard out it reads a number from 
-- standard in. One number pr. line input
begin
    IO.Cput(prompt);
    return cast(string, integer, IO.Cget());
end;