11 lines
237 B
Text
11 lines
237 B
Text
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
|