(* Last modified on Tue Oct 27 17:01:48 PST 1992 by kalsow *)
(*      modified on Tue Apr  3 01:40:51 1990 by saxe       *)

INTERFACE B;

IMPORT C;

TYPE
  Moose = C.Moose;

(*--- unsupported Modula-2+ pass-thru variable ---
VAR 
  moose: Moose = C.bullwinkle;
-------------------------------------------------*)

PROCEDURE MakeMoose(w, h, a: REAL; l: INTEGER): Moose;

CONST Bigger (*(m1, m2: Moose): Moose*) = C.Heavier;

END B.