sub trans
{
  my @done = ["$time[5]-$time[4]-$time[3]", $type, $amount];
  push @{$self->{history}}, \@done;
}