us <- function(pop){

	return(sqrt(2*(1/4)/pop))
}
us(80)
us(28)
us(66)
us(36)
us(197)
us(146)
us(306)
us(22)
us(114)
us(56)
us(68)
us(260)


