Help for this page
%warehouse{$name}{"SID"} = $name {$level} = from 1 to 18 {"service") = only for control {"sons"} = array with the his sons {"father") = $fathername (adquired before)
$fathername $son1 ... son2 son1 son2