[Unicon-group] Another cute program using {/x:=0;x} equivalent macro

[Majorinc, Kazimir]

$define is :=:temp1):=(if \temp1 then temp1 else
$define let ((
$define initially ))
procedure main()
every write( let x is 1 initially +:= let p is 1. initially /:=  1 to 18 )
end
----
Kazimir Majorinc, Zagreb, Croatia