genZoneCont gridw gridh zonew zoneh x y zg0 types sizes rrands (l:ls) (k:ks) (j:js) n = do
  let zg = genZoneContChunk gridw gridh zonew zoneh x y 0 n (fst l) (snd l) zg0 types sizes rrands k j
  genZoneCont gridw gridh zonew zoneh x y zg types sizes rrands ls ks js (n-1)

-- generates a single continent
genZoneCont gridw gridh zonew zoneh x y zg0 types sizes rrands (l:ls) (k:ks) (j:js) n = do
  let zg = genZoneContChunk gridw gridh zonew zoneh x y 0 n (fst l) (snd l) zg0 types sizes rrands k j
  genZoneCont gridw gridh zonew zoneh x y zg types sizes rrands ls ks js (n-1)

-- generates a single continent
genZoneCont gridw gridh zonew zoneh x y zg0 types sizes rrands (l:ls) (k:ks) (j:js) n = do
  let zg = genZoneContChunk gridw gridh zonew zoneh x y 0 n (fst l) (snd l) zg0 types sizes rrands k j
  genZoneCont gridw gridh zonew zoneh x y zg types sizes rrands ls ks js (n-1)

-- generates a single continent