let in let type a = array of int var howmany:int := 20 var a:a := new a[howmany] of 1 var x := 2 in while x < howmany do (a[x]:=a[x-1]+a[x-2]; x:=x+1) end ; 1 end