{"body":"perl6 -I. -MRed -e '                          \nuse Red::AST::Generic::Infix; \nmodel Bla { has $!id is serial; has Int $.ble is column }\nmy $*RED-DB = database \"SQLite\";\nBla.^create-table;\nmy $*RED-DEBUG = True;\n\n.say for Bla.^all.grep: { Red::AST::Generic::Infix.new: .id, .ble, :op<my-crazy-op> }\n\n'\nSQL : SELECT\n   bla.id , bla.ble \nFROM\n   bla\nWHERE\n   bla.id my-crazy-op bla.ble","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/wDyEFNGf","modified":1573047552,"id":"wDyEFNGf","size":382,"lines":16,"own_paste":false,"theme":"","date":1573047552}