print 1.5e-400 '0

print 1.5e400  '#INF

print -1.5e400 '#-INF

print 0/-1.5   '-0

print 1.5/0    '#INF

print -1.5/0   '#-INF

print 0/0      '#qNAN


function f() as double
return -1.5/0
end function

print f '#-INF