#!/usr/bin/perl -w

print map{"+"x$_.".[-]\n"}unpack'C*',<>;