$ cat 03-processor.bas
10 REM === B2B LEAD PROCESSOR (REGEX & FOREACH) ===
20 PRINT "--- Kaynnistetaan Deterministinen Prosessori ---"
30 FS DELETE "/tmp/emails_export.csv"
40 FS DELETE "/tmp/emails_export.json"

50 PRINT "Luetaan keratty CDP-massadata levylta..."
60 FS READ "/tmp/harvester_full_data.jsonl" INTO RAW_DATA$

70 PRINT "Metsastetaan kaikki sahkopostit..."
80 SCAN RAW_DATA$ FOR "[EMAIL]" INTO ALL_EMAILS

90 PRINT "Metsastetaan kaikki puhelinnumerot..."
100 SCAN RAW_DATA$ FOR "[PHONE]" INTO RAW_PHONES

110 PRINT "Siivotaan puhelinnumerot elegantilla FOREACH-silmukalla..."
120 JSON INIT ARRAY INTO CLEAN_PHONES

130 FOREACH P IN RAW_PHONES
140   STR REMOVE SPACES FROM P INTO CLEAN_P
150   JSON PUSH CLEAN_P INTO CLEAN_PHONES
160 NEXT P

170 PRINT ""
180 PRINT "Loydetyt sahkopostit:"
190 PRINT ALL_EMAILS
200 PRINT "Loydetyt ja siivotut puhelinnumerot:"
210 PRINT CLEAN_PHONES
220 PRINT ""

230 PRINT "Tallennetaan CSV levylle..."
240 CSV STRINGIFY ALL_EMAILS DELIM ";" INTO EMAIL_CSV$
250 FS WRITE "/tmp/emails_export.csv" WITH EMAIL_CSV$

260 PRINT "Tallennetaan JSON levylle..."
270 JSON STRINGIFY ALL_EMAILS INTO EMAIL_JSON$
280 FS WRITE "/tmp/emails_export.json" WITH EMAIL_JSON$

290 PRINT "Vienti suoritettu onnistuneesti! (Vaihe 3 valmis)"
300 HALT
$