(load "ub4-1a.scm")

(make-student "Reinhard" "Franck" "0070815")