less <- function(f) file.show(f, pager="less")