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