newX: xc Y: yc p := Point new. p init. p x: xc. p y: yc. ^p