a little bit more Perl 6 by using fail()