(port-map(^e(print(regexp-replace-all* e #/(.\d*)(x(^(.))?)?/(^(quote)((^,k(if'2 #"+~(*,'1,k)x^~(-,k 1)"""))x->number(or'4 1)))#/\+-/"-"#/^\+|x.0$/""#/\^1/"")))read-line)