procedure main()
   ary := [2,3,5,7,11]
   write(inspect(ary));
 
   ary := list(10, 1)
   write(inspect(ary));
 
   ary := list(10)
   write(inspect(ary));
 
   every i := 1 to *ary do ary[i] := i
   write(inspect(ary));
 
   mat := make_matrix(4, 0.0);
   write(inspect(mat))
end
 
procedure inspect(arg)
   result := "[ "
   every  elt := !arg do 
      if type(elt) == "list" then
         result ||:= inspect(elt) || ", "
      else 
         result ||:= image(elt) || ", "
   return result || "]"
end
 
procedure make_matrix(n, x)
   L := list(n)
   every !L := list(n, x)
   return L
end

cHJvY2VkdXJlIG1haW4oKQogICBhcnkgOj0gWzIsMyw1LDcsMTFdCiAgIHdyaXRlKGluc3BlY3QoYXJ5KSk7CiAgIAogICBhcnkgOj0gbGlzdCgxMCwgMSkKICAgd3JpdGUoaW5zcGVjdChhcnkpKTsKICAgCiAgIGFyeSA6PSBsaXN0KDEwKQogICB3cml0ZShpbnNwZWN0KGFyeSkpOwogICAKICAgZXZlcnkgaSA6PSAxIHRvICphcnkgZG8gYXJ5W2ldIDo9IGkKICAgd3JpdGUoaW5zcGVjdChhcnkpKTsKICAgCiAgIG1hdCA6PSBtYWtlX21hdHJpeCg0LCAwLjApOwogICB3cml0ZShpbnNwZWN0KG1hdCkpCmVuZAoKcHJvY2VkdXJlIGluc3BlY3QoYXJnKQogICByZXN1bHQgOj0gIlsgIgogICBldmVyeSAgZWx0IDo9ICFhcmcgZG8gCiAgICAgIGlmIHR5cGUoZWx0KSA9PSAibGlzdCIgdGhlbgogICAgICAgICByZXN1bHQgfHw6PSBpbnNwZWN0KGVsdCkgfHwgIiwgIgogICAgICBlbHNlIAogICAgICAgICByZXN1bHQgfHw6PSBpbWFnZShlbHQpIHx8ICIsICIKICAgcmV0dXJuIHJlc3VsdCB8fCAiXSIKZW5kCgpwcm9jZWR1cmUgbWFrZV9tYXRyaXgobiwgeCkKICAgTCA6PSBsaXN0KG4pCiAgIGV2ZXJ5ICFMIDo9IGxpc3QobiwgeCkKICAgcmV0dXJuIEwKZW5k