DouKaku?

もうちょっと頑張ってみました。
実行例:
arc> (c "LL day and night")
LL Day And Night("LL" "Day" "And" "Night")

表示の「("LL" 〜」以降は prall(出力関数)の返り値なので気にしないでください。

1

(def c(x)(prall(map[do(=(_ 0)(upcase:_ 0))_](tokens x))"" " "))