module Hamster::CoreExt::IO

def to_list(sep = $INPUT_RECORD_SEPARATOR)
  Stream.new do
    line = gets(sep)
    if line
      Sequence.new(line, to_list)
    else
      EmptyList
    end
  end
end