(!******************************************************
   Mosel Example Problems
   ====================== 

   file listinout1.mos
   ```````````````````
   Reading/writing lists from/to text files.
   
   (c) 2008 Fair Isaac Corporation
       author: S. Heipcke, Nov. 2007
*******************************************************!)

model "List handling (Text file)"

 declarations
  R: range
  LI: list of integer
  LS,LS2: array(R) of list of string   ! With text data files we can use
                                       ! compositions of structured types
 end-declarations

 initializations from "listdata.dat"
  LI as "List1"
  LS as "List2"
 end-initializations 

! Display the lists
 writeln("LI: ", LI)
 writeln("LS: ", LS)

! Reverse the list LI
 reverse(LI)

! Append some text to every entry of LS 
 forall(i in R) LS2(i):= sum(l in LS(i)) [l+" year"+i]

! Display the modified lists
 writeln("LI: ", LI)
 writeln("LS2: ", LS2)

 initializations to "listout.dat"
  LI as "List1Out"
  LS2 as "List2Out"
 end-initializations 

end-model