(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)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).