wp <- readLines(tc <- textConnection(webpage))
close(tc)