or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"my $old =
...
20---+----30---+----40---+----50---+----60---+----70---+----80---+----
+90---+----200--+----10---+----20---+----<
>|---+----10---+----20---+----30---+----40---+----50---+----60---+----
+70---+----80---+----90---+----100--+----10---+----
20---+----30---+----40---+----50---+----60---+----70---+----80---+----
+90---+----200--+----10---+----20---+----<