# Pastebin OHw2cHGA
perl6 -Ilib -e '

use Red;

model M is table<mmm> { has Str $.a is column; has Int $.b is column }
my $*RED-DB = database "SQLite";
M.^create-table;
M.^all.map: { next if .b > 3 ; .a }
'
when (mmm.b)::num > 3 == True => next
when (mmm.b)::num > 3 == False => mmm.a