true.

?- density(Where, What).
Where = united_states,
What = 30.6453 ;;
Where = argentina,
What = 14.5658 ;;
Where = kenya,
What = 54.8992 ;;
Where = arcata,
What = 3000.

?- halt.