resource MicroResKor = open Prelude in {
  param
    Regularity = Regular | PieupIrregular ;
    VerbType = Action | Descriptive ;

  oper
    Noun : Type = {s : Str} ;
    Verb : Type = {
      reg : Regularity ;
      stem : Str ;
      t : VerbType
      } ;
    Verb2 : Type = Verb ;
    Adjective : Type = Verb ;
}