$n=<>;push(@a,qw"/ + / -"[$n&3]),$n=$n&1?$n*3+1&~3:$n/2while$n>1;print@a.$/,@a