([).runstdin def[neg 1[{[neg 1[{dup mul 1 index dup mul add[dup mul
gt{( )}{(*)}ifelse print}for()=}for