# Pastebin ZIdSlm9S
perl6 -Ilib -MJSON::Fast -MRed -e'                      

model Bla {
   has $.id is serial;
   has %.value is column{ :inflate(&from-json), :deflate(&to-json) }
}

my $*RED-DB = database "SQLite";
Bla.^create-table;

Bla.^create: :value{a => [^10]}

.say for Bla.^all

'
Bla.new(id => 1, value => ${:a($[0, 1, 2, 3, 4, 5, 6, 7, 8, 9])})