multi print (Point $p) { $p.perl.print }
multi print (Circle $c) { $c.perl.print }