y = {}; z = {}
y[0] = 2000; z[0] = 500
h = .1
n = 30

function bastelmal(y, z, h)
  print("Hasen-Fche-Problem:")
  for i = 1,n do
    y[i] = y[i-1] + h * (1.75 * y[i-1] - 0.005 * z[i-1] * y[i-1])
    z[i] = z[i-1] + h * (0.0006 * y[i-1] * z[i-1] - 1.05 * z[i-1])
  end
end

bastelmal(y, z, h)

print("CSV")
for i=0,n do
  print(i, y[i], z[i])
end
--[[
print("LaTeX")
print("\\[\\begin{array}{rclcrcl}")
for i=0,30 do
  io.write("y_{", i, "} & = & ", y[i], " & & z_{", i, "} & = & ", z[i], " \\\\\n")
end
print("\\end{array}\\]")
--]]