# Pastebin 4ktGMRGc
perl6 -I. -MRed -e '                          
use Red::AST::Generic::Infix;
model Bla { has $!id is serial; has Int $.ble is column{ :deflate{ S:g/a/_/ } }; }
my $*RED-DB = database "SQLite";
Bla.^create-table;

.say for Bla.^create: :ble<abacate>
'
Bla.new(ble => "_b_c_te")