awk '
BEGIN {
code='$1'
}
{
n=length($0)-1
printf " %s%s\n", code, substr($0,1,n)
} '