V10/cmd/pfort/rmwar

for i
{
ed - $i <<!
g/non-character datum initialized with character string/d
w
q
!
}