sub rev
{
    my @r;
    push @r, pop @_ while @_;
    @r
}