}

			if {$use_tclreadline} {
				proc ::tclreadline::prompt1 {} $prompt
				::tclreadline::Loop
			} else {
				fconfigure stdout -blocking false
				puts -nonewline "> "
				puts -nonewline [apply [list {} $prompt]]
				flush stdout
				fileevent stdin readable [list apply {{} {
				fileevent stdin readable [list apply {{prompt} {
					uplevel #0 {
						gets stdin __line__
						if {$__line__ eq "" && [eof stdin]} {
							exit 0
						}

						if {[catch $__line__ __result__]} {
							puts "\[ERROR\] $::errorInfo"
						} else {
							if {$__result__ ne ""} {
								puts "$__result__"
							}
						}
					}

					puts -nonewline "> "
					puts -nonewline [apply [list {} $prompt]]
					flush stdout
				}}]
				}} $prompt]

				vwait forever
			}
		}
		"import" {
			uplevel #0 [list namespace import ::nano::${namespace}::cli::*]
		}