(!*******************************************************
  * Mosel Example Programs                              *
  * ======================                              *
  *                                                     *
  * file tanslate.mos                                   *
  * `````````````````                                   *
  * Example for the use of the Mosel language           *
  * (use of the automatic translation system)           *
  * run the command below to generate the dictionaries: *
  *  xprnls mogen -d locale *.po                        *
  *                                                     *
  * (c) 2015 Fair Isaac Corporation                     *
  *     author: Y. Colombani, 2015                      *
  *******************************************************!)

model translate
!@mc.msgdom translate
uses 'mmsystem'
declarations
 weekday:array(1..7) of string
 worder:array(1..7) of string
end-declarations
!@mc.msgid yes
!@mc.msgid no
 weekday::[_c("monday","tuesday","wednesday","thursday",
              "friday","saturday","sunday")]
 worder::[_c("first","second","third","fourth","fifth","sixth","seventh")]
 wd:=getweekday(date(SYS_NOW))
 writeln_("Today is ",_(weekday(wd)))
 writeln_("This is the ",_(worder(wd))," day of the week")
end-model