lines = '30 56 47 86 44 23 16 64 80 54 73 65 76 69 53 58 30 91 90 36 57'
con = textConnection( lines )
data = scan( con, quiet=TRUE )
close(con)