gistfile1.n

using Nemerle.Collections;
using System.Console;

module Program
{
  F(l : list[string],
    f : string -> list[string]) : list[list[string]]
  {
    def impl(l, acc)
    {
      match(l)
      {
      | [] => [acc]
      | h :: t => f(h).Map(h' => impl(t, acc + [h'])).Flatten()
      }
    }
    
    impl(l, [])
  }
 
  Main() : void
  {
    def res = F(["a", "b"], x => [x + "x", x + "y"]);
    
    foreach(r in res)
      WriteLine($"..$r");
    
    _ = ReadLine();
  }
}