{"body":"perl6 -I. -MRed -e '                          \nuse Red::AST::Generic::Infix;\nmodel Bla { has $!id is serial; has Int $.ble is column{ :deflate{ S:g/a/_/ } }; }\nmy $*RED-DB = database \"SQLite\";\nBla.^create-table;\n\nBla.^create: :ble<abacate>;\n\n.say for Bla.^all.grep: *.ble eq (S:g/a/_/ given \"abacate\")  \n\n'\nBla.new(ble => \"_b_c_te\")","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/NR5o6KvB","modified":1573495338,"id":"NR5o6KvB","size":332,"lines":12,"own_paste":false,"theme":"","date":1573495338}