while1.exs

defmodule WhileLoop do
  defmacro while(condition_expression, do: do_block) do
    quote do
      for _ <- Stream.cycle([:fine]) do
        if unquote(condition_expression) do
        unquote(do_block)
        else
          # break out of loop
        end
      end
    end
  end
end