in progress commonFriends.ml