type foo is int;
type foo2 is char;
type foo3 is real;

type foo_4 is foo3;

type doo is struct {
   foo a;
   real x;
   char c;
};

type m1 is array of doo;
type m2 is array of m1;
type m3 is array of m2;

type hoo is struct {
   int i;
   m3 a;
   m3 b;
};
