snip <- function(input) {
    pb <- pipe("pbcopy", "w")
    write.table(input, sep="\t", file=pb, row.names = FALSE)
    close(pb)
}