resource MorphoAra = ResAra ** open Prelude in  {

flags optimize = all ;--noexpand;
  coding=utf8 ;

  oper

    mkDet : Str -> Number -> State -> Det
      = \word,num,state ->
      { s = \\_,_,c => word + caseTbl ! c ;
        n = numberToSize num;
        d = state;  --only Const is used now. check StructuralAra
        is1sg = False;
        isNum = False;
        isPron = False
      };

    mkPredet : Str -> Bool -> Predet
      = \word,decl ->
      { s = \\c =>
          case decl of {
            True => word + caseTbl!c;
            False => word
          };
        isDecl = decl
      };

   mkQuantNum : Str -> Number -> State -> {
      s: Species => Gender => Case => Str; n: Number; d : State; isPron: Bool; isNum : Bool} =
      \waHid,num,state ->
     let waHida = waHid + "َة" in
      { s = \\_,g,c =>
          let word =
          case g of {
            Masc => waHid;
            Fem => waHida
          } in defArt state c waHid + word + dec1sg ! state ! c;
        n = num;
        d = state;
        isPron = False;
        isNum = True
      };

}