#lang planet dyoo/whalesong

(define-struct p (f r))


"1"
struct:p
"2"
make-p
"3"
p-f
"4"
p-r
"5"
p?
"6"


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