{"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\n.say for Bla.^create: :ble<abacate>\n'\nBla.new(ble => \"_b_c_te\")","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/4ktGMRGc","modified":1573495067,"id":"4ktGMRGc","size":276,"lines":9,"own_paste":false,"theme":"","date":1573495067}