Help for this page
$x = pdl(0,4,0,-3)
for $el in $x if $el > 0 then $el = 1 if $el < 0 then $el = 0 if $el == 0 then $el = int(rand(9)) >= 5 ? 1 : 0 end