sub {{
    my $ret = [ map {int} @$c ];
    ...