module Common
{
  MakeForEachBody(Pattern : Pattern, body : Expr)
  {
    if (body is MatchBody) // если тело цикла содержит паттерны...
    {
      assert(Pattern is Identifier); // паттерн должен быть простым именем
      <[  match (current)
            ..$body ]>
    }
    else 
      <[  match (current)
          {
            | $Pattern => $body
            | _ => ()
          } ]>;
  }
}