# This program outputs the Fibonacci sequence for as long
# as it can using the closed-form expression of the series.

$_ = $$ / $$ #  1
@_ = $_ + $_ #  2
$- = $_ - @_ # -1
$__= @_ * @_ + $_ # 5
@__= $__ ** (@_ ** $-) # sqrt(5)

$___ = ($_ + @__) / @_ # golden ratio
@___ = ($_ / -$___)    # negative reciprocal

$. = $_ # Initialize counter.

@____ = -> {
  $- = ($___ ** $. - @___ ** $.) / @__     # Reuse for fib number.
  $> << "#$-"[/[^.]+/] << ('' << @_ * $__) # Print without fractional part.
  $. += $_ # Increment
  @____[]  # and go again.
}

@____[]

# This program outputs the Fibonacci sequence for as long
# as it can using the closed-form expression of the series.

$_ = $$ / $$ #  1
@_ = $_ + $_ #  2
$-_ = $_ - @_ # -1
$__= @_ * @_ + $_ # 5
@__= $__ ** (@_ ** $-_) # sqrt(5)

$___ = ($_ + @__) / @_ # golden ratio
@___ = ($_ / -$___)    # negative reciprocal

$. = $_ # Initialize counter.

@____ = -> {
  $-_ = ($___ ** $. - @___ ** $.) / @__     # Reuse for fib number.
  $> << "#$-_"[/[^.]+/] << ('' << @_ * $__) # Print without fractional part.
  $. += $_ # Increment
  @____[]  # and go again.
}

@____[]

Refactor to not use $- variable
Refactor to not use $- variable
