#!/usr/bin/newlisp

# reversefile - benchmark

(while (read-line) (push (current-line) file))

(println (join file "\n"))

(exit)