l=0
loop{c=getc
$><<(c<l ?"-":"+")*(c-l).abs+"."
l=c}