# Pastebin 77MLf0H5
perl6 -e '


class Animalia                    {
  method full-name {
    ::?CLASS.^name
  }
}
class Arthropodia is Animalia     {
  method full-name {
    callsame() ~ ", " ~ ::?CLASS.^name
  }
}
class Insecta is Arthropodia      {
  method full-name {
    callsame() ~ ", " ~ ::?CLASS.^name
  }
}
class Lepidoptera is Insecta      {
  method full-name {
    callsame() ~ ", " ~ ::?CLASS.^name
  }
}
class Nymphalidae is Lepidoptera  {
  method full-name {
    callsame() ~ ", " ~ ::?CLASS.^name
  }
}
class Hamadryas is Nymphalidae    {
  method full-name {
    put "{::?CLASS.^name} is {callsame}"
  }
}

my $h = Hamadryas.new;
$h.full-name;


'
Hamadryas is Animalia, Arthropodia, Insecta, Lepidoptera, Nymphalidae