alias mb_noop ""
set mb_if_condition ""
alias mb_if_else "set mb_if_condition $1; toggle mb_if_condition; alias mb_if_action0 $2; alias mb_if_action1 $3;  mb_if_execute "
alias mb_if "set mb_if_condition $1; toggle mb_if_condition; alias mb_if_action0 ${2-}; alias mb_if_action1 mb_noop;  mb_if_execute "
alias mb_if_execute "mb_if_action${mb_if_condition}"
alias mb_if_cmp "rpn /mb_if_condition $1 $3 $2 =; alias mb_if_action1 ${4-}; alias mb_if_action0 mb_noop;  mb_if_execute "


alias mb_for "set $1 $2; mb_if_cmp $2 <= $3  mb_for_exec $1 $3 ${4- asis}"
alias mb_for_exec "${3- asis}; mb_for_increment ${* asis}"
alias mb_for_increment "rpn /mb_for_next /$1 load 1 + =; mb_for_loop ${* asis}"
alias mb_for_loop mb_for $1 $mb_for_next $2 ${3- asis}


alias mb_array_get1 set $2 ${$1}
alias mb_array_get mb_array_get1 $1$2 $3;


alias mb_float2hex_2 "toggle $1 0 10 a 11 b 12 c 13 d 14 e 15 f"
alias mb_float2hex_1 "mb_if_cmp ${$1} >= 10 mb_float2hex_2 $1"
alias mb_float2hex "rpn /$1 ${$1} 0.5 + floor =; mb_float2hex_1 $1"


set mb_hexr_0 0
set mb_hexr_1 1
set mb_hexr_2 2
set mb_hexr_3 3
set mb_hexr_4 4
set mb_hexr_5 5
set mb_hexr_6 6
set mb_hexr_7 7
set mb_hexr_8 8
set mb_hexr_9 9
set mb_hexr_a 10
set mb_hexr_b 12
set mb_hexr_c 13
set mb_hexr_d 13
set mb_hexr_e 14
set mb_hexr_f 15
set mb_hexr_A 10
set mb_hexr_B 11
set mb_hexr_C 12
set mb_hexr_D 13
set mb_hexr_E 14
set mb_hexr_F 15
alias mb_parsecolor_x_convert set $mb_parsecolor_target ${$mb_parsecolor_digit}
alias mb_parsecolor_x_set set mb_parsecolor_digit mb_hexr_$mb_string_ch_result
alias mb_parsecolor_x "set mb_parsecolor_target $mb_parsecolor_prefix$1; mb_string_ch $2 $mb_parsecolor_string; mb_parsecolor_x_set; mb_parsecolor_x_convert"
alias mb_parsecolor "set mb_parsecolor_prefix $2; set mb_parsecolor_string $1;  mb_parsecolor_x r 0; mb_parsecolor_x g 1; mb_parsecolor_x b 2;"


alias mb_hue_result_1 "set $1 ^x$mb_hue_r$mb_hue_g$mb_hue_b"
alias mb_hue_result "mb_float2hex mb_hue_r; mb_float2hex mb_hue_g; mb_float2hex mb_hue_b; mb_hue_result_1 ${*}"
alias mb_hue_60 "set mb_hue_r 15; set mb_hue_b 0; rpn /mb_hue_g $1 15 * 60 / =; mb_hue_result ${2-}"
alias mb_hue_120 "set mb_hue_g 15; set mb_hue_b 0; rpn /mb_hue_r 15 $1 60 - 15 * 60 / - =; mb_hue_result ${2-}"
alias mb_hue_180 "set mb_hue_g 15; set mb_hue_r 0; rpn /mb_hue_b $1 120 - 15 * 60 / =; mb_hue_result ${2-}"
alias mb_hue_240 "set mb_hue_b 15; set mb_hue_r 0; rpn /mb_hue_g 15 $1 180 - 15 * 60 / - =; mb_hue_result ${2-}"
alias mb_hue_300 "set mb_hue_b 15; set mb_hue_g 0; rpn /mb_hue_r $1 240 - 15 * 60 / =; mb_hue_result ${2-}"
alias mb_hue_360 "set mb_hue_r 15; set mb_hue_g 0; rpn /mb_hue_b 15 $1 300 - 15 * 60 / - =; mb_hue_result ${2-}"
alias mb_hue_call "$mb_hue_callee ${*}"
alias mb_hue_switch "set mb_hue_callee mb_hue_$mb_hue_which; mb_hue_call ${*}"
alias mb_hue "rpn /mb_hue_which 60 120 180 240 300 360 $1 300 < when $1 240 < when $1 180 < when $1 120 < when $1 60 <  when =; mb_hue_switch ${*}"

alias mb_color_brightness_set_result "set mb_color_brightness_result ^x$mb_color_brightness_r$mb_color_brightness_g$mb_color_brightness_b"
alias mb_color_brightness_param "rpn /$1 0 $2 $3 * 15.4 bound 0.5 + floor ="
alias mb_color_brightness "mb_color_brightness_param mb_color_brightness_r $1 $4; mb_color_brightness_param mb_color_brightness_g $2 $4; mb_color_brightness_param mb_color_brightness_b $3 $4; mb_float2hex mb_color_brightness_r; mb_float2hex mb_color_brightness_g; mb_float2hex mb_color_brightness_b; mb_color_brightness_set_result"

alias mb_blend_set_result set mb_blend_result $mb_blend_c_r$mb_blend_c_g$mb_blend_c_b
alias mb_blend_mix "rpn /mb_blend_c_$1 /mb_blend_c1_$1 load  $mb_blend_factor * /mb_blend_c2_$1 load 1 $mb_blend_factor - * + =; mb_float2hex mb_blend_c_$1"
alias mb_blend "mb_parsecolor $1 mb_blend_c1_; mb_parsecolor $2 mb_blend_c2_; set mb_blend_factor $3; mb_blend_mix r; mb_blend_mix g; mb_blend_mix b; mb_blend_set_result"

alias mb_blend_c_set_result set mb_blend_result $mb_blend_c_r$mb_blend_c_g$mb_blend_c_b
alias mb_blend_c_mix "rpn /mb_blend_c_$3 /$1$3 load $mb_blend_factor * /$2$3 load 1 $mb_blend_factor - * + =; mb_float2hex mb_blend_c_$3"
alias mb_blend_components "set mb_blend_factor $3; mb_blend_c_mix $1 $2 r; mb_blend_c_mix $1 $2 g; mb_blend_c_mix $1 $2 b; mb_blend_c_set_result"




alias mb_streq "set mb_streq_result \"_$1\"; toggle mb_streq_result 0 \"_$2\" 1"
alias mb_strneq "set mb_streq_result \"_$1\"; toggle mb_streq_result 0 \"_$2\" 1; toggle mb_streq_result"


alias mb_strlen_recurse_tail "mb_if $mb_streq_result mb_strlen_do"
alias mb_strlen_recurse "mb_strneq \"$mb_strlen_string1\" \"$mb_strlen_string\"; mb_strlen_recurse_tail"
alias mb_strlen_substr "rpn /mb_strlen_string1 /mb_strlen_string load /%.${mb_strlen_count}s sprintf1s =; mb_strlen_recurse"
alias mb_strlen_do "rpn /mb_strlen_count dup load 1 + =; mb_strlen_substr"
alias mb_strlen "set mb_strlen_string ${* asis};" set mb_strlen_string1 "." "; set mb_strlen_count 0; mb_strlen_recurse"

alias mb_ctype_digit_toggle toggle mb_ctype_result 0 1 2 3 4 5 6 7 8 9 10
alias mb_ctype_normalize toggle mb_ctype_result 1 0 0
alias mb_ctype "set mb_ctype_result $2; mb_ctype_${1}_toggle; mb_ctype_normalize"

exec mb_ascii.cfg

alias mb_string_ch_set_result_if_body "set mb_string_ch_result \"${$mb_string_ch_nextchar}\"; set mb_string_ch_i 999"
alias mb_string_ch_set_result "mb_if $mb_streq_result mb_string_ch_set_result_if_body"
alias mb_string_ch_check "mb_streq \"$mb_string_ch_match_1\" \"$mb_string_ch_match_2\"; mb_string_ch_set_result"
alias mb_string_ch_check_set "set mb_string_ch_match_1 \"$mb_string_ch_firstchar${$mb_string_ch_nextchar}\"; rpn /mb_string_ch_match_2 /mb_string_ch_str load /%.${mb_string_ch_index}s sprintf1s =; mb_string_ch_check"
alias mb_string_ch_loop_body "set mb_string_ch_nextchar mb_ascii_opt_$mb_string_ch_i; mb_string_ch_check_set"
alias mb_string_ch_loop "mb_for mb_string_ch_i 0 $mb_ascii_size mb_string_ch_loop_body"
alias mb_string_ch_set_first "rpn /mb_string_ch_firstchar /mb_string_ch_str load /%.${mb_string_ch_index}s sprintf1s = /mb_string_ch_index dup load 1 + =; mb_string_ch_loop; "
alias mb_string_ch_check_0_if_exit rpn /mb_string_ch_result /mb_string_ch_str load /%.1s sprintf1s =
alias mb_string_ch_check_0_if "mb_if_else $mb_if_condition mb_string_ch_check_0_if_exit mb_string_ch_set_first"
alias mb_string_ch_check_0 "rpn /mb_if_condition /mb_string_ch_index load 0 < =; mb_string_ch_check_0_if"
alias mb_string_ch "set mb_string_ch_result \"?\"; set mb_string_ch_str ${2- asis};  rpn /mb_string_ch_index $1 =; mb_string_ch_check_0"


alias mb_rainbow_set_name "name $mb_print_result"
alias mb_rainbow_say_team1 "say_team $mb_print_result"
alias mb_rainbow_say1 "say $mb_print_result"
alias mb_rainbow_echo1 "echo \"$mb_print_result\""
alias mb_rainbow_loop_add_character "set mb_print_result \"$mb_print_result$mb_rainbow_hue_str$mb_string_ch_result\""
alias mb_rainbow_loop_body_2 "mb_hue $mb_rainbow_hue mb_rainbow_hue_str; mb_rainbow_loop_add_character; rpn /mb_rainbow_hue dup load /mb_rainbow_hue_step load + ="
alias mb_rainbow_loop_body_1 "mb_string_ch $mb_rainbow_i \"$mb_rainbow_str\""
alias mb_rainbow_loop_body "mb_rainbow_loop_body_1; mb_rainbow_loop_body_2"
alias mb_rainbow_loop "mb_for mb_rainbow_i 0 $mb_rainbow_sl mb_rainbow_loop_body"
alias mb_rainbow_counter_set "rpn /mb_rainbow_sl /mb_strlen_count load 1 - =; rpn /mb_rainbow_hue 0 =; rpn /mb_rainbow_hue_step 360 /mb_strlen_count load / floor ="
alias mb_rainbow_strlen "mb_strlen \"$mb_rainbow_str\""
alias mb_rainbow_setup "set mb_print_result \"\"; mb_rainbow_strlen; mb_rainbow_counter_set; mb_rainbow_loop;"
alias mb_rainbow_print "set mb_rainbow_str \"${* q}\"; mb_rainbow_setup;mb_rainbow_echo1; mb_rainbow_say1"
alias mb_rainbow_echo "set mb_rainbow_str \"${* q}\"; mb_rainbow_setup;mb_rainbow_echo1"
alias mb_rainbow_say "set mb_rainbow_str \"${* q}\"; mb_rainbow_setup; mb_rainbow_say1"
alias mb_rainbow_say_team "set mb_rainbow_str \"${* q}\"; mb_rainbow_setup; mb_rainbow_say_team1"
alias mb_rainbow_name "set mb_rainbow_str \"${* q}\"; mb_rainbow_setup; mb_rainbow_set_name"

alias mb_print_name "name $mb_print_result"
alias mb_print_say_team "say_team $mb_print_result"
alias mb_print_say "say $mb_print_result"
alias mb_print_echo "echo \"$mb_print_result\""
alias mb_print_loop_add_character "set mb_print_result \"$mb_print_result^x$mb_blend_result$mb_string_ch_result\""
//alias mb_print_strip_color3 "mb_string_ch $mb_strlen_count ^$mb_string_ch_result"
//alias mb_print_strip_color2 "rpn /mb_strlen_count dup load 1 - =; mb_print_strip_color3"
//alias mb_print_strip_color1 "mb_if_cmp $mb_strlen_count > 2 mb_print_strip_color2"
//alias mb_print_strip_color "echo ^$mb_string_ch_result; mb_strlen ^$mb_string_ch_result; mb_print_strip_color1"
alias mb_print_loop_body_2 "mb_blend_components mb_print_c1 mb_print_c2 $mb_print_factor; mb_print_loop_add_character; rpn /mb_print_factor dup load /mb_print_factor_step load + ="
alias mb_print_loop_body_1 "mb_string_ch $mb_print_i \"$mb_print_str\""
alias mb_print_loop_body "mb_print_loop_body_1; mb_print_loop_body_2"
alias mb_print_loop "mb_for mb_print_i $mb_print_s0 $mb_print_sl mb_print_loop_body"
alias mb_print_counter_set "set mb_print_s0 0; rpn /mb_print_sl /mb_strlen_count load 1 - =; rpn /mb_print_factor 1 =; rpn /mb_print_factor_step 0 1 /mb_strlen_count load / - ="
alias mb_print_strlen "mb_strlen \"$mb_print_str\""
alias mb_print_setup_init "mb_parsecolor $1 mb_print_c1; mb_parsecolor $2 mb_print_c2; set mb_print_result \"\"; mb_print_strlen; "
alias mb_print_setup "mb_print_setup_init ${*}; mb_print_counter_set; mb_print_loop;"
alias mb_print "set mb_print_str \"${3- q}\"; mb_print_setup $1 $2; mb_print_echo; mb_print_say"
alias mb_echo "set mb_print_str \"${3- q}\"; mb_print_setup $1 $2; mb_print_echo"
alias mb_say "set mb_print_str \"${3- q}\"; mb_print_setup $1 $2; mb_print_say"
alias mb_say_team "set mb_print_str \"${3- q}\"; mb_print_setup $1 $2; mb_print_say_team"
alias mb_name "set mb_print_str \"${3- q}\"; mb_print_setup $1 $2; mb_print_name"

alias mb_print_setup_n_set_result "set mb_print_result \"$mb_print_result_part\";"
alias mb_print_n_set_result_part "set mb_print_result_part \"$mb_print_result_part$mb_print_result\"; rpn /mb_printn_c1i dup load 1 + = /mb_printn_c2i dup load 1 + =;"
alias mb_print_n_counter_set " rpn /mb_print_sl $mb_strlen_count $mb_printn_n / $mb_psn_i * floor 1 - =; rpn /mb_print_s0 $mb_strlen_count $mb_printn_n / $mb_psn_i 1 - * floor =; rpn /mb_print_factor 1 =; rpn /mb_print_factor_step 0 1 /mb_strlen_count load / - $mb_printn_n * ="
alias mb_print_n_setup_do "mb_print_setup_init ${$mb_printn_c1i} ${$mb_printn_c2i}; mb_print_n_counter_set;  mb_print_loop; mb_print_n_set_result_part;
alias mb_print_n_setup_startvars "set mb_printn_c1i 1; set mb_printn_c2i 2; set mb_print_s0 0; set mb_print_result_part \"\""
alias mb_print_n_loop mb_for mb_psn_i 1 $mb_printn_n mb_print_n_setup_do ${*}
alias mb_print_n_setup "mb_print_n_setup_startvars; mb_print_n_loop ${*}; mb_print_setup_n_set_result"


alias mb_print_n_set_n_k set mb_say_n_k ${mb_say_n_k}-
alias mb_print_n_set_n "rpn /mb_say_n_k $1 2 + =; rpn /mb_printn_n $1 1 - =; mb_print_n_set_n_k"
alias mb_print_n_set_str "set mb_print_str \"${$mb_say_n_k q}\"";
alias mb_echo_n "mb_print_n_set_n $1; mb_print_n_set_str ${* asis}; mb_print_n_setup ${2- asis}; mb_print_echo"
alias mb_say_n "mb_print_n_set_n $1; mb_print_n_set_str ${* asis}; mb_print_n_setup ${2- asis}; mb_print_say"
alias mb_say_team_n "mb_print_n_set_n $1; mb_print_n_set_str ${* asis}; mb_print_n_setup ${2- asis}; mb_print_say_team"
alias mb_print_n "mb_print_n_set_n $1; mb_print_n_set_str ${* asis}; mb_print_n_setup ${2- asis}; mb_print_say; mb_print_echo"
alias mb_name_n "mb_print_n_set_n $1; mb_print_n_set_str ${* asis}; mb_print_n_setup ${2- asis}; mb_print_name"



set mb_emoticon_eye_0 ":"
set mb_emoticon_eye_1 "X"
set mb_emoticon_eye_2 ";" // won't work :-(
set mb_emoticon_eye_m 1
set mb_emoticon_nose_0 "-"
set mb_emoticon_nose_1 "^^"
set mb_emoticon_nose_2 "O"
set mb_emoticon_nose_m 2
set mb_emoticon_mouth_0 ")"
set mb_emoticon_mouth_1 "("
set mb_emoticon_mouth_2 "D"
set mb_emoticon_mouth_3 "|"
set mb_emoticon_mouth_4 "O"
set mb_emoticon_mouth_5 "/"
set mb_emoticon_mouth_6 "*"
set mb_emoticon_mouth_7 "P"
set mb_emoticon_mouth_m 7
alias mb_emoticon_do_say say $mb_emoticon_result
alias mb_emoticon_do_say_team say_team $mb_emoticon_result
alias mb_emoticon_do_echo echo $mb_emoticon_result
alias mb_emoticon_set "set mb_emoticon_result \"$mb_emoticon_eye$mb_emoticon_nose$mb_emoticon_mouth"
alias mb_emoticon_var3 "set $mb_emoticon_var_n \"${$mb_emoticon_var_nv}\""
alias mb_emoticon_var2 "set mb_emoticon_var_nv ${$mb_emoticon_var_n}; mb_emoticon_var3"
alias mb_emoticon_var1 "set $mb_emoticon_var_n mb_emoticon_${1}_${$mb_emoticon_var_n}; mb_emoticon_var2"
alias mb_emoticon_var "set mb_emoticon_var_n mb_emoticon_$1;rpn /mb_emoticon_$1 /mb_emoticon_${1}_m load 1 + rand =; mb_emoticon_var1 $1"
alias mb_emoticon "mb_emoticon_var eye; mb_emoticon_var nose; mb_emoticon_var mouth;  mb_emoticon_set"
alias mb_emoticon_say "mb_emoticon; mb_emoticon_do_say";
alias mb_emoticon_echo "mb_emoticon; mb_emoticon_do_echo";
alias mb_emoticon_print "mb_emoticon; mb_emoticon_do_say; mb_emoticon_do_echo";
alias mb_emoticon_say_team "mb_emoticon; mb_emoticon_do_say_team";