MODULE OWr EXPORTS OWr;

IMPORT Text, TextF;

PROCEDURE PutText (self: T; t: Text.T) RAISES {Closed} =
  BEGIN 
    self.putString (SUBARRAY (t^, 0, Text.Length (t) - 1));
  END PutText;

BEGIN
END OWr.