#!/bin/sh
# Restart with tclsh \
exec tclsh "$0" "$@"

proc main {} {
    while {1} {
        set data [gets stdin]
        if {[eof stdin]} {
            break
        }
        puts [string toupper $data]
    }
}

main

# vim: set ts=4 sts=4 sw=4 tw=80 et: