proc p {k} {puts -nonewline [format "%c" $::i];set ::i [expr $::i+$k]} for {set i 97} {$i<123} {} {p -32;p 12289;p 96;p 0;p -96;p -12289;p 32;p 1}
Standard input is empty
aAあアアあAabBぃィィぃBbcCいイイいCcdDぅゥゥぅDdeEうウウうEefFぇェェぇFfgGえエエえGghHぉォォぉHhiIおオオおIijJかカカかJjkKがガガがKklLきキキきLlmMぎギギぎMmnNくククくNnoOぐググぐOopPけケケけPpqQげゲゲげQqrRこココこRrsSごゴゴごSstTさササさTtuUざザザざUuvVしシシしVvwWじジジじWwxXすススすXxyYずズズずYyzZせセセせZz