exec df > /tmp/tmp1output
set file [open "|cat /tmp/tmp1output" "r"]
while {![eof $file]} {
  set line [gets $file]
  set io [open {|sed "s#/dev#Disk: #g"} "r" << $line]
  set ln2 [gets $io]
  puts $io $line - $ln2
  close $io
  }
flush $io;
puts $io "x04"
set ff [gets $io]
puts "line: $ff"
exec rm /tmp/tmp1output