;; MAJORS.OPS

(literalize student
        name
        id
        maj-code)

(literalize majors
        major-code
        major-name)

(p startup
        (start)
    -->
        (make student ^name Laura ^id 2233 ^maj-code 10)
        (make student ^name Laura ^id 1234 ^maj-code 11)
        (make student ^name John ^id 4321 ^maj-code 11)
        (make student ^name Heather ^id 3214 ^maj-code 10)
        (make student ^name Becca ^id 9876 ^maj-code 10)
        (make student ^name Kathy ^id 6543 ^maj-code 11)
        (make majors ^major-code 10 ^major-name biology)
        (make majors ^major-code 11 ^major-name chemistry)
)

(p select-major
        (student ^name  ^maj-code  ^id )
        (majors ^major-code  ^major-name )
      - (student ^maj-code < )
-->
        (write  (tabto 20)  (tabto 30)  (crlf))
        (remove 1)
)