accessing
id
	^ id ifNil: [
		self profileImageUrl 
			ifNil: [ id := 0 ]
		 ifNotNil: [ id := (self profileImageUrl asUrl segments select: [ :each | each isAllDigits ]) first. ]
		 ]