problem

sub fixti {
  my @parti = (0,parti(@{get_meta('report')}->[2]));
  print curti(), " Fixti: \@parti: @parti\n";
  return shift unless $parti[2];
  my %fixti = (map { $_ => 0 - shift @parti } qw(d h m s));
  print curti(), " Fixti: \%fixti:"; print " $fixti{$_}" foreach sort keys %fixti; print "\n";
  map { $fixti{chop($_)} += $_ } @{[ split(/\s+/,shift) ]};
  ($fixti{'d'},$fixti{'h'},$fixti{'m'},$fixti{'s'}) = # better way to do this?
    fucti($fixti{'d'},$fixti{'h'},$fixti{'m'},$fixti{'s'});
  return "@{[ map { qq($fixti{$_}$_) } qw(d h m)]}";
}