Select Code to Download

use strict;
use warnings;
...
    print $divider, "\n";
    print @{$tape->{cells}}[$first .. $last], "\n";
}

               5-state machine, theoretical max steps: >47,176,870
Step: 630
...
4567890123456789012345678901234567890123456789001234567890123456789012
+345678901234
----------------------------------------v-----------------------------
+----------­-
1    11     1     1          1         11     111              1      
+     11