#! /usr/bin/env tclkit

proc gzip {orig dest} {
  puts "gzip-compressing: $orig -> $dest ..."
  exec gzip < $orig > $dest
}

gzip tclkit linux-x86.gz

proc upx {orig dest rt} {
  puts "upx-compressing: $orig -> $dest ..."
  file delete $dest
  catch { exec upx -qq -9 -o $dest $orig } err
  exec cat runtime-$rt.kit >> $dest
}

upx kit linux-x86.upx.bin tk