this is fairly straight forward.
$a = a($a) = 1
KiX evalutes right to left
a($a) is a recursive call of the function
it returns a value
this could be written like but the parens are not necessary.
$a = (a(a$)=1)
This basicly says is $a(a$) equal to 1. If not send zero through the next equal sign to the left most $a. If a($) is 1 then 1=1 which is true and 1 is then passed.
