sub add {
    my $current = 0;
    return '' unless @_ = grep length, @_;
    $current += substr $_, -1, 1, '' for @_;
    push @_, substr $current, 0, -1, '' if length $current > 1;
    return &add . $current;
}