# Pastebin LcxpKfce
perl6 -Ilib -MRed -e '
model B { has $.a is column }

model A {                                                                      
   has $.a is column;
   has B::ResultSet $.b = .where: .a == $!a;
}

say A.new: :1a;


'