# Pastebin JY6hC3p0 use lib 'lib'; use Red; my $*RED-DB = database "SQLite"; model M2 { ... } model M1 { has Int $.id is serial; has Str $.name is column; has M2 @.m2 is relationship{ M2.m1_id }; } model M2 { has Int $.m1_id is id; has Int $.id is id; } M1.^create-table; M2.^create-table; my $r = M1.^create: :name; for 0 .. 5 -> $id { my $x = M2.^create: :m1_id($r.id), :$id; $x.perl.say; } $r.perl.say; M2.^all.elems.perl.say;; $r.m2.perl.say;