a=0;loop{c=a-a=getc;$><<[c<0?"+"*-c:"-"*c,"."]}