# Pastebin 1AY5DXAu
$ perl6 -e '


use Red;
  
model Foo {
    has Int $.id is serial;
    has Str $.foo is column{ :nullable };
}

my $*RED-DEBUG          = $_ with %*ENV<RED_DEBUG>;
my $*RED-DB             = database "SQLite", |(:database($_) with %*ENV<RED_DATABASE>);

Foo.^create-table;

Foo.^create(foo => "one");
Foo.^create(foo => "two");
Foo.^create;
sub formatter(Red::ResultSeq:D $rs --> Str ) {
    my @cols   = $rs.of.^attributes.grep(Red::Attr::Column).map( -> $c { $c.name.substr(2) });

    my $str = @cols.join("\t\t|");
    $str ~= "\n" ~ ( "-" x 50 ) ~ "\n";
    for $rs -> $row {
        $str ~= @cols.map( -> $n { $row."$n"() // "" }).join("\t\t|") ~ "\n";
    }

   $str;
}
say formatter(Foo.^rs);


'
id		|foo
--------------------------------------------------
1		|one
2		|two
3		|