fix bug shown by v <- rep(0/0,1000); b <- NA+0; cat (b/exp(v[1]), (b/exp(v))[1])
changed switch labels to be only for two ops