main=interact$ \x->zipWith(#)('\0':x)x>>=tail
a#b=(max([a..b]>>"+")$[b..a]>>"-")++"."