  TYPE
    ost$word = integer;
