##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: August 2016
# Modified: 2016-10-03/22:54-0400
##+
#
# http.icn
#
procedure main()
    # pull in the page
    url := "http://example.com"
    web := open(url, "m") | stop("Can't open " || url)
    page := ""
    while page ||:= read(web) || "\n"

    # pull out any title    
    page ? {
        tab(find("<title")) & tab(find(">")) & move(1) &
        title := tab(find("</title"))
    }
    close(web)

    # display the title, if any, and then the page
    write("Page title: ", \title)
    write(page)
end