blob: 9ffb4a03c60ee75486c58044b30b31fc503b5fe2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(defvar *prog-input*)
(let ((ui (read-line)))
(if (equal ui "")
(setq *prog-input* *standard-input*)
(setq *prog-input* (open ui))))
(let
((cal (read-line *prog-input* NIL)) )
(loop until (or (equal cal "end") (not cal)) do
(setq cal (read-line *prog-input* NIL)))
(print 1))
(if (not (eq *prog-input* *standard-input*))
(close *prog-input*))
|
