query: SELECT ?item ?spaces ?first ?itemAltLabel ?l ?O ?last ?aftercomma
  WHERE
  {
      ?item wdt:P27 wd:Q27 ; wdt:P31 wd:Q5 . 
      MINUS { ?item wdt:P735 [] } . 
      OPTIONAL { ?item rdfs:label ?l . FILTER(lang(?l)="en") . 
                BIND(strlen(?l)-strlen(REPLACE(str(?l)," ", "")) as ?spaces)
                BIND(REPLACE(str(?l), "^[^,]+ ([^ ,]+)(, .+)?$","$1") as ?last) 
                BIND(IF(REGEX(str(strbefore(CONCAT(?l,","), ",")), "^.+ (Ó