The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!./blib/script/seis

# check literals

# use v6;

say '1..24';


print "ok ";
print 1;
print "\n";

print 'ok ';
say 2;

print "ok 3\n";
say 'ok 4';
say "ok 5";

say 'ok ', 0x6;
say 'ok ', 0b111;
say 'ok ', 0o10;
say 'ok ', 0d9;
# See KNOWN BUGS section.
# say 'ok ', +"0x0a";
# say 'ok ', '0b1010' + 1;
# say 'ok ', '0o6' * '0b10';
# say 'ok ', +'0d13';
say "ok $_" for 10..13;

say 'ok ', 0_0_1_4;
say 'ok ', 0x0000_000f;
say 'ok ', 0d16;
say 'ok ', 0b0001_0001;

say 'ok ', "\x31\x38";
say 'ok ', "1\x39";
say 'ok ', "\x32\o60";
say "\x023 test multiple escapes in string using diag output: \x31\x32\o63";
say "ok 21";

say 'ok ', +"\x[32]2";
say 'ok ', +"2\x[33]";
say 'ok ', +"\o[62,064]";


## TODO a lot more