freelang-editor 11.7.4

package/docs/v12-DESIGN.md

@@ -0,0 +1,214 @@
+# FreeLang v12 설계 문서
+
+> **버전**: Draft 0.2 | **작성**: 2026-05-12  
+> **근거**: MISTAKES-100 분석 + v11.6.x 운영 경험
+
+---
+
+## 1. 배경
+
+Phase H~I 작업으로 MISTAKES-100 86%를 달성했으나, 남은 13개 항목은 모두 `[design]` 타입입니다.  
+v11에서 안전하게 고칠 수 없는 근본 설계 결함이며, v12에서 **Breaking Change**로 해결합니다.
+
+---
+
+## 2. Breaking Changes 카테고리
+
+### A. 컬렉션 인자 순서 통일 (#5, #6, #9)
+
+**현재 혼동 패턴:**
+
+```lisp
+;; assoc/dissoc/get은 map-first지만 일부 사용자가 역순으로 호출
+(assoc "key" {} "val")    ;; ❌ — 타입 에러지만 메시지 불명확
+(get "key" {})            ;; ❌ — 마찬가지
+```
+
+**v12 조치:** 잘못된 인자 타입 시 명확한 시그니처 힌트 에러
+
+```lisp
+;; v12 에러 예시
+(assoc "key" {} "val")
+;; → [v12] assoc: 첫 번째 인자는 map이어야 합니다.
+;;          올바른 형식: (assoc map key val)
+;;          예: (assoc {:a 1} "b" 2) → {:a 1 :b 2}
+```
+
+**자동 변환:** 가능 (코드모드로 첫 번째 인자 타입 추론 후 교환)
+
+---
+
+### B. HTTP API 통일 (#47, #48, #49, #50, #52)
+
+**현재 문제점:**
+
+```lisp
+;; #47: req 파라미터 접근 두 가지 방법 혼재
+(get (get req "params") "id")       ;; 방법 1 — 저수준
+(server_req_param req "id")         ;; 방법 2 — 권장
+
+;; #48: body 자동 파싱 비일관 (JSON만 자동, form은 수동)
+
+;; #49: 응답 맵 직접 반환 불가
+(fn [req] {:status 200 :body "ok"}) ;; ❌ 동작 안 함
+(fn [req] (server-json {:ok true})) ;; ✅
+
+;; #50: server_status 인자 순서 혼동 (code vs message 순서)
+(server_status "Not found" 404)     ;; ❌ 역순
+(server_status 404 "Not found")     ;; ✅
+
+;; #52: express.fl + server_* 혼용 → 조용히 오작동
+```
+
+**v12 설계:**
+
+```lisp
+;; B-1: req 접근 req-* 패밀리로 통일
+(req-param  req "id")
+(req-query  req "page")
+(req-body   req)              ;; JSON/form 자동 파싱 맵
+(req-header req "Authorization")
+
+;; B-2: 핸들러가 맵 반환 허용
+(defn handler [req]
+  {:status 200
+   :headers {"Content-Type" "application/json"}
+   :body {:ok true}})         ;; v12: body 자동 JSON 직렬화
+
+;; B-3: server-status 인자 순서 강제 검증
+(server-status 404 "Not found")    ;; code → body 순서만 허용
+;; 역순 감지: (server-status "Not found" 404) → 에러 + 힌트
+
+;; B-4: FL_V12=1에서 express.fl + server_* 혼용 즉시 에러
+```
+
+**마이그레이션:** `server_status` 역순은 자동 변환 가능.
+
+---
+
+### C. 전역 상태 → atom 강제 (#16, #17, #18, #19, #20, #94)
+
+**v12-alpha에서 구현 완료** (2026-05-12):
+
+| # | 변경 | 상태 |
+|---|------|------|
+| #19 | `@varname` → `(deref varname)` lexer 변환 | ✅ 완료 |
+| #16 | `FL_V12=1`: define 재정의 → 에러 + atom 안내 | ✅ 완료 |
+| #17/#18 | `FL_V12=1`: `set!` → 에러 + swap!/reset! 안내 | ✅ 완료 |
+| #20 | `swap!` extra args 지원 확인 | ✅ 완료 |
+| #94 | atom 클로저 참조 캡처 테스트 확인 | ✅ 완료 |
+
+```lisp
+;; v12 표준 가변 상태 패턴
+(define count (atom 0))
+(defn inc-count! [] (swap! count + 1))
+(inc-count!)
+@count  ;; → 1
+```
+
+---
+
+### D. DB / WebSocket / HTTP 시그니처 (#15, #53, #54, #67)
+
+**현재 문제:**
+
+```lisp
+;; #15: http_post — body를 JSON 문자열로 직접 전달 필요
+(http_post url {:name "kim"})                     ;; ❌ 에러 없이 오작동
+(http_post url (json-stringify {:name "kim"}))    ;; ✅ 올바른 방식
+
+;; #67: mariadb_connect — map 방식만 허용
+(mariadb_connect "host" "user" "pw" "db")         ;; ❌ positional 불가
+
+;; #53/#54: WS 핸들러 시그니처 불명확
+(ws-handler "/ws" (fn [msg] ...))                  ;; msg 구조 불명확
+(ws-on-close (fn [] ...))                          ;; code/reason 없음
+```
+
+**v12 설계:**
+
+```lisp
+;; D-1: http-post map → JSON 자동 직렬화
+(http-post url {:name "kim"})     ;; v12: map 직접 허용
+
+;; D-2: mariadb-connect positional 지원
+(mariadb-connect "localhost" "root" "pass" "mydb")   ;; positional
+(mariadb-connect {:host "..." :user "..."})           ;; map 방식 유지
+
+;; D-3: WS 핸들러 구조화
+(ws-handler "/ws"
+  {:on-message (fn [conn msg] ...)
+   :on-close   (fn [conn code reason] ...)
+   :on-error   (fn [conn err] ...)})
+```
+
+---
+
+### E. 기타 (#99, #51)
+
+```lisp
+;; #99: server-start 블로킹 — 이후 코드 실행 안 됨
+;; v12: 비블로킹 옵션 추가
+(server-start 3000)                    ;; 블로킹 (기존 동작 유지)
+(server-start 3000 {:async true})      ;; v12: 비블로킹
+
+;; #51: 경로 :id 파라미터 → 핸들러 자동 주입
+;; v12: 핸들러 두 번째 인자로 params 자동 전달
+(defn get-user [req params]
+  (let [id (get params "id")]
+    (server-json {:id id})))
+```
+
+---
+
+## 3. 마이그레이션 전략
+
+### 자동 변환 가능 (코드모드 예정)
+
+| 패턴 | 변환 |
+|------|------|
+| `(set! x v)` | `(reset! x v)` |
+| `(define x v)\n(define x v2)` | atom 패턴 변환 |
+| `(http_post url (json-stringify body))` | `(http-post url body)` |
+| `(server_status msg code)` | `(server-status code msg)` (역순 감지 시) |
+
+### 수동 변환 필요
+
+- WS 핸들러 시그니처 재작성
+- express.fl ↔ server_* 혼용 코드 분리
+- 응답 맵 패턴 도입 여부 결정
+
+---
+
+## 4. 활성화 전략
+
+```
+v11 (현재)       경고만 출력 (console.warn)
+FL_V12=1         Breaking Changes 에러 활성화
+v12.0.0 릴리스   FL_V12=1 기본값 / FL_V11_COMPAT=1으로 구버전 허용
+v12.1.0 이후     FL_V11_COMPAT 제거
+```
+
+---
+
+## 5. 타임라인
+
+| 마일스톤 | 내용 | 일정 |
+|----------|------|------|
+| v12-alpha | C 카테고리 완료 (@atom, define, set!) | ✅ 2026-05-12 |
+| v12-beta | A+B+D 에러힌트, 코드모드 초안 | 2026-05 |
+| v12.0.0 RC | 전체 Breaking Changes + 마이그레이션 가이드 | 2026-06 |
+| v12.0.0 | 공식 릴리스, FL_V12=1 기본값 | 2026-07 |
+
+---
+
+## 6. 관련 파일
+
+| 파일 | 역할 |
+|------|------|
+| `src/lexer.ts` | @atom deref 변환 (#19) |
+| `src/eval-special-forms.ts` | define/set! FL_V12 체크 (#16/#17/#18) |
+| `src/eval-builtins.ts` | 내장 함수 타입 힌트 에러 (#5/#6/#9) |
+| `src/__tests__/v12-alpha.test.ts` | v12 Alpha 테스트 21개 |
+| `docs/_classifications.json` | MISTAKES-100 분류 (86% 달성) |
+| `feature/v12-alpha` | 구현 브랜치 (Gogs 배포 완료) |

package/examples/README.md

@@ -0,0 +1,26 @@
+# FreeLang v11 예제 모음
+
+| 파일 | 설명 |
+|------|------|
+| `hello.fl` | 최소 Hello World |
+| `simple-intent.fl` | Intent 블록 기본 |
+| `pipeline-demo.fl` | 파이프라인 데모 |
+| `ai-agent.fl` | AI 에이전트 |
+| `macro-dsl.fl` | 매크로 DSL |
+| `mini-server.fl` | 최소 HTTP 서버 |
+| `http-server.fl` | HTTP 서버 기본 |
+| `api-server.fl` | API 서버 |
+| `full-server.fl` | 풀스택 서버 |
+| `server-check.fl` | 서버 상태 체크 |
+| **`sqlite-prod-crud.fl`** ⭐ | **프로덕션 SQLite CRUD 참조 (외부 저장소 링크)** |
+
+## ⭐ sqlite-prod-crud.fl
+
+v11으로 구현한 **99.9%+ 프로덕션 수준** SQLite 앱의 참조 파일입니다.
+
+- **실체**: https://gogs.dclub.kr/kim/freelang-v11-sqlite-crud
+- **테스트**: 42개 보안 테스트 PASS
+- **기능**: JWT + 2FA + 비밀번호 재설정 + Rate Limit + CSP + 감사로그 + 토큰 순환
+- **재사용 헬퍼**: 21개 (escape-html, rate-check, require-auth 등)
+
+v11으로 프로덕션 앱을 만들 때 이 저장소를 템플릿으로 사용하세요.

package/examples/browser-test.html

@@ -0,0 +1,149 @@
+<!DOCTYPE html>
+<html lang="ko">
+<head>
+  <meta charset="UTF-8">
+  <meta name="viewport" content="width=device-width, initial-scale=1">
+  <title>FreeLang v11 — 브라우저 테스트</title>
+  <style>
+    * { box-sizing: border-box; margin: 0; padding: 0; }
+    body { font-family: monospace; background: #0d1117; color: #e2e8f0; padding: 24px; }
+    h1 { color: #38bdf8; margin-bottom: 8px; font-size: 20px; }
+    .badge { display: inline-block; background: #1e3a5f; color: #7dd3fc; padding: 2px 8px; border-radius: 4px; font-size: 12px; margin-bottom: 24px; }
+    .card { background: #111827; border: 1px solid #1f2d3d; border-radius: 8px; padding: 20px; margin-bottom: 20px; }
+    .card h2 { color: #94a3b8; font-size: 13px; margin-bottom: 12px; text-transform: uppercase; letter-spacing: 1px; }
+    textarea { width: 100%; background: #0a1628; border: 1px solid #1e3a5f; border-radius: 6px; color: #e2e8f0; padding: 12px; font-family: monospace; font-size: 13px; resize: vertical; }
+    button { background: #1d4ed8; color: white; border: none; padding: 8px 20px; border-radius: 6px; cursor: pointer; font-size: 13px; margin-top: 8px; }
+    button:hover { background: #2563eb; }
+    #output { background: #0a1628; border: 1px solid #1e3a5f; border-radius: 6px; padding: 12px; min-height: 60px; font-size: 13px; color: #4ade80; white-space: pre-wrap; margin-top: 8px; }
+    #output.error { color: #f87171; }
+    .counter { font-size: 48px; font-weight: bold; color: #38bdf8; text-align: center; padding: 20px; }
+    .btn-row { display: flex; gap: 8px; margin-top: 8px; }
+    input[type=text] { background: #0a1628; border: 1px solid #1e3a5f; border-radius: 6px; color: #e2e8f0; padding: 8px 12px; font-size: 13px; width: 100%; margin-bottom: 8px; }
+    #todo-list { list-style: none; margin-top: 8px; }
+    #todo-list li { padding: 8px 12px; background: #0a1628; border: 1px solid #1e3a5f; border-radius: 4px; margin-bottom: 4px; color: #94a3b8; }
+  </style>
+</head>
+<body>
+
+<h1>FreeLang v11 — 브라우저 실행 테스트</h1>
+<span class="badge">platform: browser | DOM + Fetch 지원</span>
+
+<!-- 1. REPL -->
+<div class="card">
+  <h2>1. FL 코드 직접 실행 (REPL)</h2>
+  <textarea id="fl-code" rows="5">
+(define result (str_join ", " ["FreeLang" "v11" "브라우저" "실행" "성공!"]))
+(dom_set_text (dom_by_id "output") result)</textarea>
+  <button onclick="runFL()">실행 ▶</button>
+  <div id="output">결과가 여기 표시됩니다...</div>
+</div>
+
+<!-- 2. 카운터 (DOM 조작) -->
+<div class="card">
+  <h2>2. 카운터 — DOM 조작</h2>
+  <div id="counter-val" class="counter">0</div>
+  <div class="btn-row">
+    <button onclick="counterAction('inc')">+ 증가</button>
+    <button onclick="counterAction('dec')">- 감소</button>
+    <button onclick="counterAction('reset')">초기화</button>
+  </div>
+</div>
+
+<!-- 3. 할 일 목록 (데이터 관리) -->
+<div class="card">
+  <h2>3. 할 일 목록 — 데이터 관리</h2>
+  <input type="text" id="todo-input" placeholder="할 일을 입력하세요..." onkeydown="if(event.key==='Enter') addTodo()">
+  <button onclick="addTodo()">추가</button>
+  <ul id="todo-list"></ul>
+</div>
+
+<!-- 4. str_ 라이브러리 테스트 -->
+<div class="card">
+  <h2>4. str_ 표준 라이브러리</h2>
+  <textarea id="str-code" rows="4">
+(define s "  Hello, FreeLang World!  ")
+(str_join "\n" [
+  (str_trim s)
+  (str_upper (str_trim s))
+  (str_title (str_trim s))
+  (str_reverse "FreeLang")
+  (str_zfill "42" 8)
+])</textarea>
+  <button onclick="runStrTest()">실행 ▶</button>
+  <div id="str-output" style="background:#0a1628;border:1px solid #1e3a5f;border-radius:6px;padding:12px;margin-top:8px;color:#4ade80;white-space:pre-wrap;min-height:40px;font-size:13px;"></div>
+</div>
+
+<script src="../browser.js"></script>
+<script>
+  // FreeLang 인터프리터 인스턴스 (전역 공유)
+  const fl = FreeLang.FreeLang;
+
+  // 1. REPL
+  function runFL() {
+    const code = document.getElementById("fl-code").value;
+    const out = document.getElementById("output");
+    out.className = "";
+    try {
+      const result = fl.evaluate(code);
+      if (result !== null && result !== undefined) {
+        out.textContent = String(result);
+      }
+    } catch(e) {
+      out.className = "error";
+      out.textContent = e.message;
+    }
+  }
+
+  // 2. 카운터
+  let count = 0;
+  function counterAction(action) {
+    const code = `
+      (define cnt ${count})
+      (define new-cnt (${action === 'inc' ? '+ cnt 1' : action === 'dec' ? '- cnt 1' : '0'}))
+      (dom_set_text (dom_by_id "counter-val") (str new-cnt))
+      new-cnt
+    `;
+    count = fl.evaluate(code) ?? count;
+  }
+
+  // 3. 할 일
+  const todos = [];
+  function addTodo() {
+    const inp = document.getElementById("todo-input");
+    const val = inp.value.trim();
+    if (!val) return;
+    todos.push(val);
+    inp.value = "";
+    const code = `
+      (define items ${JSON.stringify(todos)})
+      (define html (str_join "" (map (fn [$t] (concat "<li>" $t "</li>")) items)))
+      (dom_set_html (dom_by_id "todo-list") html)
+      (length items)
+    `;
+    fl.evaluate(code);
+  }
+
+  // 4. str_ 테스트
+  function runStrTest() {
+    const code = document.getElementById("str-code").value;
+    const out = document.getElementById("str-output");
+    try {
+      const result = fl.evaluate(code);
+      out.textContent = result !== null && result !== undefined ? String(result) : "(완료)";
+    } catch(e) {
+      out.style.color = "#f87171";
+      out.textContent = e.message;
+    }
+  }
+
+  // 페이지 로드 시 자동 실행 확인
+  console.log("[FreeLang] 브라우저 로드 성공:", fl.version);
+</script>
+
+<!-- script type text/freelang 자동 실행 테스트 -->
+<script type="text/freelang">
+(dom_set_text (dom_by_id "output") "✅ FreeLang v11 브라우저 자동 실행 성공!")
+</script>
+
+</body>
+</html>

package/examples/csv-tool/analyze.fl

@@ -0,0 +1,222 @@
+;; ─────────────────────────────────────────────────────────────
+;; FreeLang CSV 분석 도구 v2
+;;
+;; 환경변수:
+;;   CSV_FILE     파일 경로 (기본: employees.csv)
+;;   CSV_LIMIT    미리보기 행 수 (기본: 5)
+;;   CSV_FILTER   "컬럼=값" 형식으로 필터 (예: dept=개발)
+;;   CSV_SORT     정렬 컬럼 (예: salary)
+;;   CSV_SORT_ASC "1"이면 오름차순, 기본 내림차순
+;;   CSV_OUTPUT   결과 CSV 저장 경로 (선택)
+;; ─────────────────────────────────────────────────────────────
+
+;; ── 숫자 헬퍼 (설정 로드 전 필요) ──────────────────────────
+(defn to-num [s] (?? (str-to-num s) 0))
+
+;; ── 설정 로드 ────────────────────────────────────────────────
+(define CSV_FILE    (?? (shell-env "CSV_FILE")    "employees.csv"))
+(define CSV_LIMIT   (to-num (?? (shell-env "CSV_LIMIT") "5")))
+(define CSV_FILTER  (shell-env "CSV_FILTER"))
+(define CSV_SORT    (shell-env "CSV_SORT"))
+(define CSV_SORT_ASC (= (shell-env "CSV_SORT_ASC") "1"))
+(define CSV_OUTPUT  (shell-env "CSV_OUTPUT"))
+
+;; ── 표시 폭 계산 (한글/CJK = 2칸) ──────────────────────────
+(defn display-width [s]
+  (let [chars (str-split (str s) "")]
+    (sum (map (fn [c]
+                (let [code (char-code c)]
+                  (if (or (and (>= code 0x1100) (<= code 0xFFFF))
+                          (>= code 0x20000))
+                    2
+                    1)))
+              chars))))
+
+(defn pad-display [s width]
+  (let [text (str (?? s ""))
+        dw   (display-width text)
+        cut  (- width 1)]
+    (if (> dw width)
+      (str (str-slice text 0 cut) "…")
+      (str text (str-repeat " " (max 0 (- width dw)))))))
+
+;; ── CSV 파싱 ────────────────────────────────────────────────
+(defn parse-csv [text]
+  (let [lines  (filter (fn [l] (not (str-blank? l)))
+                       (str-split text "\n"))
+        header (str-split (first lines) ",")
+        rows   (map (fn [line]
+                      (let [vals (str-split line ",")]
+                        (reduce
+                          (fn [acc i]
+                            (assoc acc (nth header i) (nth vals i)))
+                          {}
+                          (range (length header)))))
+                    (rest lines))]
+    {:header header :rows rows}))
+
+;; ── 필터 파싱 ────────────────────────────────────────────────
+(defn parse-filter [filter-str]
+  (if (str-blank? filter-str)
+    nil
+    (let [parts (str-split filter-str "=" 2)]
+      (if (= (length parts) 2)
+        {:col (first parts) :val (second parts)}
+        nil))))
+
+(defn apply-filter [rows flt]
+  (if (nil? flt)
+    rows
+    (filter (fn [row]
+              (= (get row (get flt "col")) (get flt "val")))
+            rows)))
+
+;; ── 정렬 ────────────────────────────────────────────────────
+(defn apply-sort [rows col asc?]
+  (if (str-blank? col)
+    rows
+    (let [num-col? (str-to-num (get (first rows) col))
+          keyfn    (if num-col?
+                     (fn [r] (to-num (get r col)))
+                     (fn [r] (?? (get r col) "")))]
+      (if asc?
+        (sort-by keyfn rows)
+        (sort-by (fn [r] (- (to-num (get r col)))) rows)))))
+
+;; ── 테이블 출력 ──────────────────────────────────────────────
+(defn col-widths [header rows]
+  (map (fn [col]
+         (max 10
+              (+ (display-width col) 2)
+              (reduce (fn [m row]
+                        (max m (+ (display-width (str (get row col))) 1)))
+                      0
+                      (take 20 rows))))
+       header))
+
+(defn print-table [header rows]
+  (let [widths (col-widths header rows)]
+    (println (str-join
+               (map (fn [i] (pad-display (nth header i) (nth widths i)))
+                    (range (length header)))
+               " "))
+    (println (str-join
+               (map (fn [w] (str-repeat "─" w)) widths)
+               " "))
+    (doseq [row rows]
+      (println (str-join
+                 (map (fn [i] (pad-display (get row (nth header i)) (nth widths i)))
+                      (range (length header)))
+                 " ")))))
+
+;; ── 통계 ────────────────────────────────────────────────────
+(defn numeric-stats [rows col]
+  (let [vals (filter (fn [v] (not (nil? v)))
+                     (map (fn [r] (str-to-num (get r col))) rows))]
+    (when (not (empty? vals))
+      {:min   (apply min vals)
+       :max   (apply max vals)
+       :avg   (average vals)
+       :sum   (sum vals)
+       :count (length vals)})))
+
+;; ── 구분선 ──────────────────────────────────────────────────
+(defn hr [] (println (str-repeat "─" 62)))
+
+;; ── CSV 내보내기 ─────────────────────────────────────────────
+(defn export-csv [header rows path]
+  (let [lines (into
+                [(str-join header ",")]
+                (map (fn [row]
+                       (str-join (map (fn [col] (?? (get row col) "")) header) ","))
+                     rows))]
+    (file-write path (str-join lines "\n"))
+    (println (str-format "  💾 %d행 저장됨 → %s" [(length rows) path]))))
+
+;; ── 빈도 바 차트 ─────────────────────────────────────────────
+(defn freq-chart [rows col]
+  (let [freqs  (frequencies (map (fn [r] (get r col)) rows))
+        total  (length rows)
+        keys   (sort (keys freqs))]
+    (doseq [k keys]
+      (let [cnt (get freqs k)
+            pct (round (* 100 (/ cnt total)))
+            bar (str-repeat "█" (round (* 16 (/ cnt total))))]
+        (println (str-format "  %-8s %3d명 %3d%%  %s"
+                             [k cnt pct bar]))))))
+
+;; ── 메인 ─────────────────────────────────────────────────────
+(defn main []
+  (let [text   (file-read CSV_FILE)
+        parsed (parse-csv text)
+        header (get parsed "header")
+        all    (get parsed "rows")
+        flt    (parse-filter CSV_FILTER)
+        rows   (apply-sort (apply-filter all flt) CSV_SORT CSV_SORT_ASC)]
+
+    (println "")
+    (println (str "📊 FreeLang CSV 분석기 v2"))
+    (println (str "   파일: " CSV_FILE
+                  (if flt (str "  필터: " CSV_FILTER) "")
+                  (if CSV_SORT (str "  정렬: " CSV_SORT) "")))
+    (hr)
+
+    ;; 1. 미리보기
+    (println (str-format "▶ 데이터 (%d행%s)"
+                         [(length rows)
+                          (if flt (str-format " / 전체 %d행" [(length all)]) "")]))
+    (println "")
+    (print-table header (take CSV_LIMIT rows))
+    (when (> (length rows) CSV_LIMIT)
+      (println (str-format "  ... 외 %d행" [(- (length rows) CSV_LIMIT)])))
+    (println "")
+    (hr)
+
+    ;; 2. 수치 컬럼 통계
+    (let [num-cols (filter (fn [col]
+                             (str-to-num (get (first rows) col)))
+                           header)]
+      (when (not (empty? num-cols))
+        (println "▶ 수치 통계")
+        (println "")
+        (println (str-format "  %-10s %10s %10s %12s %14s"
+                             ["컬럼" "최소" "최대" "평균" "합계"]))
+        (println (str-repeat "─" 56))
+        (doseq [col num-cols]
+          (let [s (numeric-stats rows col)]
+            (when s
+              (println (str-format "  %-10s %10s %10s %12.0f %14s"
+                                   [col
+                                    (str (get s "min"))
+                                    (str (get s "max"))
+                                    [(get s "avg")]
+                                    (str (get s "sum"))])))))
+        (println "")
+        (hr)))
+
+    ;; 3. 문자열 컬럼 분포
+    (let [str-cols (filter (fn [col]
+                             (not (str-to-num (get (first rows) col))))
+                           (filter (fn [col]
+                                     (not (= col (first header))))
+                                   header))]
+      (when (not (empty? str-cols))
+        (println "▶ 분포")
+        (println "")
+        (doseq [col str-cols]
+          (println (str "  [" col "]"))
+          (freq-chart rows col)
+          (println ""))
+        (hr)))
+
+    ;; 4. CSV 내보내기
+    (when (not (str-blank? CSV_OUTPUT))
+      (println "▶ 내보내기")
+      (println "")
+      (export-csv header rows CSV_OUTPUT)
+      (println "")
+      (hr))
+
+    (println (str-format "✅ 완료: %d행 분석" [(length rows)]))))
+
+(main)

package/examples/csv-tool/employees.csv

@@ -0,0 +1,16 @@
+id,name,dept,salary,age,city
+1,김민준,개발,5200000,28,서울
+2,이서연,마케팅,3800000,32,부산
+3,박지훈,개발,6100000,35,서울
+4,최수아,인사,3200000,27,대전
+5,정도현,개발,5800000,30,서울
+6,강하은,마케팅,4100000,29,인천
+7,윤재원,개발,7200000,40,서울
+8,임소희,인사,3500000,33,부산
+9,한준혁,마케팅,3900000,26,서울
+10,오유진,개발,5500000,31,대구
+11,신태양,인사,3300000,25,서울
+12,류지아,마케팅,4300000,38,부산
+13,허승민,개발,6800000,36,서울
+14,남다은,마케팅,3700000,24,인천
+15,백세준,개발,5100000,29,서울

package/examples/csv-tool/products.csv

@@ -0,0 +1,21 @@
+sku,product,category,price,stock,rating
+P001,무선이어폰 Pro,전자기기,89000,145,4.5
+P002,텀블러 500ml,생활용품,18000,320,4.2
+P003,요가매트,스포츠,35000,88,4.7
+P004,블루투스 스피커,전자기기,65000,62,4.3
+P005,아이패드 케이스,전자기기,22000,210,4.1
+P006,프로틴 바,식품,2500,890,3.9
+P007,러닝화,스포츠,75000,44,4.6
+P008,커피머신,주방기기,145000,28,4.8
+P009,손목밴드,스포츠,15000,156,4.0
+P010,공기청정기 필터,생활용품,12000,445,4.4
+P011,게이밍 마우스,전자기기,45000,93,4.5
+P012,단백질 셰이크,식품,18000,234,4.1
+P013,철제 선반,생활용품,55000,37,4.3
+P014,달리기 장갑,스포츠,12000,178,3.8
+P015,에어팟 충전케이스,전자기기,35000,67,4.2
+P016,전기포트,주방기기,32000,112,4.6
+P017,배드민턴 라켓,스포츠,28000,55,4.4
+P018,견과류 믹스,식품,8500,567,4.3
+P019,노트북 파우치,전자기기,19000,189,4.0
+P020,주방용 저울,주방기기,25000,143,4.5

package/examples/factorial.fl

@@ -0,0 +1,9 @@
+(defn factorial [n]
+  (if (<= n 1)
+    1
+    (* n (factorial (- n 1)))))
+
+(println "factorial(5) = ")
+(println (factorial 5))
+(println "factorial(10) = ")
+(println (factorial 10))

package/examples/fib30.fl

@@ -0,0 +1,4 @@
+(defn fib [n]
+  (if (< n 2) n
+    (+ (fib (- n 1)) (fib (- n 2)))))
+(print (fib 30))

package/examples/hello.fl

@@ -0,0 +1,2 @@
+(println "Hello from FL!")
+(println (+ 1 2 3))

package/examples/hello.fl.js

@@ -0,0 +1,3 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'':String(x)).join('');const _fl_length = (x) => (x?x.length:0);const _fl_get = (o,k) => (o && o[k]!==undefined ? o[k] : null);const _fl_keys = (o) => (o?Object.keys(o):[]);const _fl_entries = (o) => (o?Object.entries(o):[]);const _fl_append = (l,x) => [...(l||[]), x];const _fl_range = (a,b) => { let r=[]; let s=(b===undefined?0:a); let e=(b===undefined?a:b); for(let i=s;i<e;i++) r.push(i); return r; };const _fl_slice = (l,a,b) => (l||[]).slice(a,b);const _fl_map = (l,f) => (l||[]).map(f);const _fl_filter = (l,f) => (l||[]).filter(f);const _fl_reduce = (l,f,i) => (l||[]).reduce(f,i);const _fl_upper = (s) => String(s||'').toUpperCase();const _fl_lower = (s) => String(s||'').toLowerCase();const _fl_contains_q = (s,p) => String(s||'').includes(p);const _fl_replace = (s,a,b) => String(s||'').split(a).join(b);const _fl_str_index_of = (s,p) => String(s||'').indexOf(p);const _fl_file_read = (p) => require('fs').readFileSync(p,'utf8');const _fl_file_write = (p,c) => require('fs').writeFileSync(p,c);const _fl_array_q = (x) => Array.isArray(x);const _fl_null_q = (x) => (x==null);const list = (...args) => args;const _fl_get_argv = () => process.argv.slice(2);
+console.log("Hello from FL!");
+console.log((1+2+3));