namespace ListInternal =

  // -- Flatmap ----------------------------------------------------------------

  function flat_map(f : 'a => list('b), xs : list('a)) : list('b) =
    switch(xs)
      []      => []
      x :: xs => f(x) ++ flat_map(f, xs)