  l <- generateArray 0.0 1.0
  m <- generateArray 0.0 1.0
  let ls = map (\x -> (x - 0.5)*0.1) $ take 100 $ l
  let ms = map (\x -> (x - 0.5)*0.1) $ take 100 $ m
  let point = predict_point_from_sources ls ms (3.4,5.6)
  print point
  let uvgrid = sample_uv_grid 5 5.0 ls ms
  print uvgrid
