All pastes #160470 Raw Edit

Untitled

public text v1 · immutable
·published 2006-09-04 11:21 UTC
rendered paste body
on *:input:#: {
  if ($left($1,1) != $chr(47)) {
    say $replace($1-,$left($1,1),$upper($left($1,1))) $+ .
    halt
  }
}