proc edit { fn } {
puts "enter lines to append $fn, end with . (dot) character."
set f [open $fn a+]
set ln 0
while {1==1} {
  gets stdin a
  if {[string equal $a "."]} {break}
  incr ln
  puts $f $a
  }
close $f
puts "$ln lines appended."
}



edit "slot0:jozsi"