It's the End of the World

[The Hobo]

I wrote a program to end the world. Anyone dare execute it? Have a great after-life.

# start 'end-of-the-world'
# !define neg-zero -0 ;
# fx := compute prime:neg-zero ;
# if[ @fx -lt 0]
# /
#     zy @fx, 14, 4 ;
#     swap @fx, -1, -0 ;
#     store:prime-power(@fx, x):x:=0,x:=<15 ;
# \ else /
#     neg-val:@fx,-1
#     store:x-val:@fx,@fx,0
# \
#
# ret-rs := execute:@fx,neg-val:@fx,0;
# store:ret-rs:@fx:=0,1;
#
# end 'end-of-the-world';