use strict;
use warnings;
use Test::More;
use Data::Monad::Base::Util qw(list);

sub a_function($$$) {
    my ($x, $y, $z) = @_;
    my @results = ($x + 10, $y + 100, $z + 1000);
    return list @results;
}

is_deeply [a_function 3, 2, 1], [13, 102, 1001];
is_deeply scalar(a_function 3, 2, 1), 13;

done_testing;