alarm <- function() cat("\a")