# Pastebin wDyEFNGf
perl6 -I. -MRed -e '                          
use Red::AST::Generic::Infix; 
model Bla { has $!id is serial; has Int $.ble is column }
my $*RED-DB = database "SQLite";
Bla.^create-table;
my $*RED-DEBUG = True;

.say for Bla.^all.grep: { Red::AST::Generic::Infix.new: .id, .ble, :op<my-crazy-op> }

'
SQL : SELECT
   bla.id , bla.ble 
FROM
   bla
WHERE
   bla.id my-crazy-op bla.ble