foompter <- function() cat("Foo!\n")