<?xml version="1.0"?>
<paste-with-annotations>
  <paste>
    <number>
      <integer>70132</integer>
    </number>
    <user>
      <string>blink-left</string>
    </user>
    <title>
      <string>read-file</string>
    </title>
    <contents>
      <string>define method read-file(path)
  with-open-file(file = path)
    let words = read-to-end(file);
    words;
  end;
end;</string>
    </contents>
    <universal-time>
      <integer>3435398391</integer>
    </universal-time>
    <channel>
      <string>#dylan</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </paste>
  <annotation>
    <number>
      <integer>1</integer>
    </number>
    <user>
      <string>blink-left</string>
    </user>
    <title>
      <string>read-file</string>
    </title>
    <contents>
      <string>module: norvig

format-out(read-file(&quot;big.txt&quot;));</string>
    </contents>
    <universal-time>
      <integer>3435398493</integer>
    </universal-time>
    <channel>
      <string>#dylan</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </annotation>
  <annotation>
    <number>
      <integer>2</integer>
    </number>
    <user>
      <string>blink-left</string>
    </user>
    <title>
      <string>library.dylan</string>
    </title>
    <contents>
      <string>module: dylan-user

define library norvig
  use system;
  use functional-dylan;
  use io;
end;

define module norvig
  use file-system;
  use streams;
  use format-out;
end;</string>
    </contents>
    <universal-time>
      <integer>3435398563</integer>
    </universal-time>
    <channel>
      <string>#dylan</string>
    </channel>
    <colorization-mode>
      <string></string>
    </colorization-mode>
    <maybe-spam>
      <null/>
    </maybe-spam>
    <is-unicode>
      <keyword>TRUE</keyword>
    </is-unicode>
    <deletion-requested>
      <null/>
    </deletion-requested>
    <deletion-requested-email>
      <null/>
    </deletion-requested-email>
    <expiration-time>
      <null/>
    </expiration-time>
  </annotation>
</paste-with-annotations>
