(let V (in "input.txt" (till))
   (out "output.txt" (prin V)) )