main=interact('\0'#) a#(b:x)=([succ a..b]>>"+")++([succ b..a]>>"-")++'.':b#x _#x=x