as an experiment, made a package out of commoncause.R and cram.R