Extracts the TLD(Top Level Domain) from domain,for newLisp