if(not empty(prop("German")), length(replaceAll(prop("German"), "[^,]", "")) + 1, 0) + if(not empty(prop("French")), length(replaceAll(prop("French"), "[^,]", "")) + 1, 0) + if(not empty(prop("Spanish")), length(replaceAll(prop("Spanish"), "[^,]", "")) + 1, 0)