-#!/usr/bin/env tclsh8.6
+#!/usr/bin/env jimsh
set n [read -nonewline stdin]
if {! [regexp {^[a-z0-9]{1,16}$} $n]} {
-#!/usr/bin/env tclsh8.6
+#!/usr/bin/env jimsh
set i [read -nonewline stdin]
if {$i == ""} {
-#!/usr/bin/env tclsh8.6
+#!/usr/bin/env jimsh
set n [read -nonewline stdin]
if {$n == ""} {
-#!/usr/bin/env tclsh8.6
+#!/usr/bin/env jimsh
set n [read -nonewline stdin]
if {! [regexp {^[.A-Za-z0-9_-]{1,32}$} $n]} {
-#!/usr/bin/env tclsh8.6
+#!/usr/bin/env jimsh
set n [read -nonewline stdin]
if {$n == ""} {
-#!/usr/bin/env tclsh8.6
+#!/usr/bin/env jimsh
set passwd [read -nonewline stdin]
if {$passwd == ""} {