perl -e'
  print "The troublesome entities, irksome to Monks:\n  "
     , (  join " and ",
        map{
        sprintf qq{$_ is safe as }.q{&#}.qq{%d;}, ord ;
           } qw/[ </  )
     , "\n";
  '