use v6-perlito;

class Main {

    say '1..4';

    my $x = "abcd";
    if substr($x,1,1) ne "b" {
        print 'not '
    };
    say 'ok 1 - substr ', substr($x,1,1);

    if index($x,"c") ne 2 {
        print 'not '
    };
    say 'ok 2 - index ', index($x,"c");

    if substr($x,3,1) ne "d" {
        print 'not '
    };
    say 'ok 3 - substr ', substr($x,3,1);

    print 'not ' if !defined "abc";
    say 'ok 4 - defined str';
}