#!/usr/bin/perl
#dcop $KONSOLE_DCOP_SESSION renameSession "$@"
print "\033]30;".join(" ",@ARGV)."\007";