# Pastebin 58qViKci
role Symbol {
    method Str { self }
}

class Expression does Symbol { }

multi infix:<~>(Str() $left is readonly, Symbol $right) {
    "SQL concat"
}

my $value = Expression.new;
say "prefix: $value";