bsc(iowa), log(exphist <- dathist)