6 lines
125 B
Plaintext
6 lines
125 B
Plaintext
|
#ignore + - \ / ^ &
|
||
|
|
#axiom
|
||
|
|
S(0,0)
|
||
|
|
#rules
|
||
|
|
S(a,c)->F(0)-[[S(a+1,0)]+S(a+1,0)]+F(0)[+F(0)S(a+1,0)]-S(a+1,0)
|
||
|
|
F(x) -> F(x+1)F(x+1)
|