(!****************************************************** Mosel User Guide Example Problems ================================= file perfect.mos ```````````````` Using the 'forall' loop. (c) 2008 Fair Isaac Corporation author: S. Heipcke, 2001 *******************************************************!) model Perfect parameters LIMIT=100 end-parameters writeln("Perfect numbers between 1 and ", LIMIT, ":") forall(p in 1..LIMIT) do sumd:=1 forall(d in 2..p-1) if p mod d = 0 then ! Mosel's built-in mod operator sumd+=d ! The same as sum:= sum + d end-if if p=sumd then writeln(p) end-if end-do end-model