--[
  --  [0, 0, 0, 0, 0],     [0, 0, 0, 0, 0]
  --  [1, 2, 6, 2, 1],     [0, 0, 0, 0, 0]
  --  [3, 4, 8, 3, 7]      [0, 0, 0, 0, 0h]
  --]
  --
  --

  fill :: Int -> a -> [a]
  fill n a = take n $ repeat a
fill :: Int -> a -> [a]
fill n a = take n $ repeat a
fill n a = take n $ repeat a