class Dog {
    has Str $.name;

    method bark(Dog:D:dog: Int $x) {
        say $dog.^name;
        say $dog.name;
        say "bark" for 1..$x;       
    }
}