#lang planet dyoo/whalesong

(define-struct p (f r))


struct:p
make-p
p-f
p-r
p?



(define p1 (make-p 3 4))
(p-f p1)
(p-r p1)