GNE같지만 아님.

gne.tcl

#!/usr/bin/env tclsh
package require Tcl 8.5;

proc 공천 {name 는 이것이다 value} {
	upvar 1 $name v;
	set v $value;
}

proc 전부 {이렇게 해 가지고 fname 으로 들어가도록 arg body} {
	eval "proc $fname {$arg} {$body}";
}

proc 코드 {텅텅 빌때까지 한번 해보세요 body 예외처리 다 어디갔냐고 body2} {
	try {
		eval $body
	} on error {왜죠 o} {
		eval $body2
	}
}

proc 콘솔.로그 x {puts $x};

proc 고심 {끝에 프로세스 해체} {
	exit
}

proc // {args} {}
proc /ㄹ {args} {}

/ㄹ > 전부 이렇게 해 가지고 <함수이름> 으로 들어가도록(매개변수){} ㄹ/
전부 이렇게 해 가지고 K-출력 으로 들어가도록 x {
	콘솔.로그 $x;
}

전부 이렇게 해 가지고 K-두개출력 으로 들어가도록 {x y} {
	K-출력 "$x $y";
}

/ㄹ > 실행 가능한 프로그램의 코드를 개,돼지 라고 부른다. ㄹ/
전부 이렇게 해 가지고 개,돼지 으로 들어가도록 {} {
	코드 텅텅 빌때까지 한번 해보세요 {
		공천 언어 는 이것이다 "GNE";
		K-두개출력 "이 언어의 이름은" "${언어}라고 한다.";
		고심 끝에 프로세스 해체;
		K-출력 "윗 줄은 exit이므로 이 줄은 실행하지 않는다.";
	} 예외처리 다 어디갔냐고 {
		K-출력 "오류";
	}
}

개,돼지