#!/usr/bin/pugs
# Please remember to update t/examples/examples.t and rename
# examples/output/functional/reverse if you rename/move this file.

multi sub rev ()          { ()                 }
multi sub rev (*$x, *@xs) { (rev(@xs), $x) }

say "... reverse";
my @result = rev(1, 'foo', 3, 4, 'bar');
say join ", ", @result; 

my @result = rev('foo');            
say join ", ", @result; 

# my @result = reverse();
# say join ", ", @result;