write(sample:pred(length(sample), ord(length(sample) > 0))); { all but last char }