First Implementation of Streams
<% ShowSMLFile("stream.sml") %>