pavone@149: #{ pavone@153: main <- :args { pavone@153: server <- "rhope.retrodev.com" pavone@153: if: (args length) > 1 { pavone@153: server <- args get: 1 pavone@153: } pavone@153: cli <- http client: server pavone@157: resp <- (cli get: "/") pavone@157: print: "Status: " . (resp status) . "\n" pavone@157: print: "Code: " . (resp statusCode) . "\n" pavone@157: print: "Headers:\n" pavone@157: foreach: (resp headers) :key val { pavone@157: print: key . " -> " . val . "\n" pavone@157: } pavone@157: print: "Body:\n" . (resp body) . "\n" pavone@149: } pavone@149: }