#!perl -p
s!$! = 6 * @{[0|++$_/6,$_%6?"+":"-"]} 1!