[Unicon-group] bronze, silver ...

[Majorinc, Kazimir]

procedure main()

  L:=[real(?1000000),real(?1000000)]

  every 1 to 10 do
    { every !L +:= !L
      write(L[2]/L[1]/2)
    }
  end

# :-)

----
Kazimir Majorinc, Zagreb, Croatia