PROCEDURE Main()
   LOCAL a := 0, b := 0, c := 0, r
   LOCAL b1 := {|| a := a + 1, b := b + 1, c := c + 1 }
   r := Eval(b1)
   ? "a=", a, "b=", b, "c=", c, "ret=", r
   ? "(harbour: a=1, b=1, c=1, ret=1 — last expr)"

   /* Same block via inline expression */
   a := 0; b := 0; c := 0
   r := Eval({|| a := a + 1, b := b + 1, c := c + 1 })
   ? "inline: a=", a, "b=", b, "c=", c, "ret=", r
   RETURN