1 files changed, 1 insertions, 0 deletions

diff --git a/06/1.tcl b/06/1.tcl
index 49c41cf..90f1d4f 100644
--- a/06/1.tcl
+++ b/06/1.tcl
@@ -12,6 +12,7 @@ while {1} {
     }
     lappend map $line
 }
+close $fp
 
 proc char_at {x y} {
     set line [lindex $::map $y]