$t-=$d=$t-ord,print'+'x-$d,'-'x$d,'.'for<>=~/./g