diff --git a/inst/prototype/sra.r b/inst/prototype/sra.r
new file mode 100644
index 0000000..13fca76
--- /dev/null
+++ b/inst/prototype/sra.r
@@ -0,0 +1,12 @@
+get_runinfo <- function(sra_id) {
+    x <- rentrez::entrez_fetch(db='sra', rettype='runinfo', id = sra_id)
+    read.csv(textConnection(x))
+}
+
+
+
+id <- "SRX5137765"
+d <- get_runinfo(id)
+head(d,2)
+
+sprintf("fastq-dump %s", d$Run[1:3])