perl -e 'die rand(2)%2?"--":"++",$/'


perl -e 'die qw(- +)[rand(2)]x2,$/'


perl -e 'die rand>.5?"--":"++",$/'