# Pastebin HSfuiEG0
perl6 -I. -MRed -e '
use Red::AST::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: { class :: does Red::AST::Infix { method op {"my-crazy-operator"}; method returns {} }.new: .id, .ble }    

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