$!=get;say 1/36*grep(->$a {$a.is-prime&&grep({!.is-prime&&$a*$_==$!},2..13)},2..13)