2 2 1 1 2 1 ##

##

use strict;
use warnings;

use XML::Twig;
my $twig = XML::Twig -> new(pretty_print => 'indented');
$twig->parsefile('test.xml');
foreach my $element($twig -> get_xpath('.//')){
  $element -> sort_children_on_field('TabOrder', type => 'numeric');
}
$twig -> print;

##

##

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20