5 use experimental 'multidimensional';
12 my ($op, $num) = /^(\w+)(?: (-?\d+))?/;
15 while ($prev_tsc <= $tsc) {
16 # say "$prev_tsc ok" if $x +2 <= $prev_tsc;
17 my $off = $prev_tsc % 40;
18 print(($x <= $off && $x + 2 >= $off) ? '#' : '.');
19 print "\n" if $prev_tsc % 40 == 0;