#!/usr/bin/pgtclsh

set conn [pg_connect sort_umlaut]

pg_exec $conn "create table umlaut (name char(20));"

set letters "A Ä B C D E F G H I J K L N M O Ö P Q R S T U Ü V W X Y Z"

foreach l $letters {
    pg_exec $conn "insert into umlaut values ('$l-man');"
}

pg_select $conn "select trim(name) as name from umlaut order by name;" name {
    puts $name(name)
}