fibonacci

=
()=>
$
()


(over)
(over)
(add)

()

#(drop)
#(dropall)
#(1)(1)
#(fibonacci)

//goldener schnitt

gold

= 
()=>
$
()


(dup)
(1)
(swap)
(div)
(1)
(add)
()
  

#(drop)
#(dropall)
#(1)
#(gold)

x
=
$

wurzelgold

=
()=>
x
()

(dup)
(1)
(add)
(sqrt)
()


#(drop)
#(dropall)
#(1)
#(ask)
#(wurzelgold)