# Pastebin 6VwUjDE5
perl6 -I. -MRed -e '



model AAA {
    has UInt $!id is serial;
    has @.many    is relationship( *.a-id, :model<BBB> );
}


model BBB {
    has UInt $!id    is serial;
    has UInt $!a-id  is referencing( *.id, :model<AAA> );
    has $.a          is relationship( *.a-id, :model<AAA> );
    has Int  $.value is column;
}


red-defaults default => database "SQLite";


AAA.^create-table; BBB.^create-table;


my $a = AAA.^create;
$a.many.create: :value($_) for ^10;    


.say for $a.many

'
BBB.new(value => 0)
BBB.new(value => 1)
BBB.new(value => 2)
BBB.new(value => 3)
BBB.new(value => 4)
BBB.new(value => 5)
BBB.new(value => 6)
BBB.new(value => 7)
BBB.new(value => 8)
BBB.new(value => 9)