import Utils   # To get CSV procedures

procedure main(A)
    f := open(A[1]) | &input
    i := 1
    write(!f)   # header line(?)
    every csv := parseCSV(!f) do {
        csv[i+:=1] *:= 100
        write(encodeCSV(csv))
        }
end