print $|++ for (0..9);  print"   post ++\n";
print $|-- for (0..9);  print"   post --\n";
print ++$| for (0..9);  print"   pre ++\n";
print --$| for (0..9);  print"   pre --\n";