my $n = t($_,$k);
my %n = f($n);