# Pastebin hpC4r7BN
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;

Bla.^create: :ble<abacate>;
my $*RED-DEBUG = True;
.say for Bla.^all.grep: *.ble eq ($ = "bla")

'
SQL : SELECT
   bla.id , bla.ble 
FROM
   bla
WHERE
   bla.ble = ?
BIND: ["bla"]