@x begin case c div 2 of 0: print_esc("displaystyle"); {|display_style=0|} 1: print_esc("textstyle"); {|text_style=2|} 2: print_esc("scriptstyle"); {|script_style=4|} 3: print_esc("scriptscriptstyle"); {|script_script_style=6|} othercases print("Unknown style!") @y begin case c of display_style: print_esc("displaystyle"); display_style+cramped: print_esc("crampeddisplaystyle"); text_style: print_esc("textstyle"); text_style+cramped: print_esc("crampedtextstyle"); script_style: print_esc("scriptstyle"); script_style+cramped: print_esc("crampedscriptstyle"); script_script_style: print_esc("scriptscriptstyle"); script_script_style+cramped: print_esc("crampedscriptscriptstyle"); othercases print("Unknown style!") @z @x primitive("displaystyle",math_style,display_style); @!@:display_style_}{\.{\\displaystyle} primitive@> primitive("textstyle",math_style,text_style); @!@:text_style_}{\.{\\textstyle} primitive@> primitive("scriptstyle",math_style,script_style); @!@:script_style_}{\.{\\scriptstyle} primitive@> primitive("scriptscriptstyle",math_style,script_script_style); @!@:script_script_style_}{\.{\\scriptscriptstyle} primitive@> @y primitive("displaystyle",math_style,display_style); @!@:display_style_}{\.{\\displaystyle} primitive@> primitive("crampeddisplaystyle",math_style,display_style+cramped); @!@:cramped_display_style_}{\.{\\crampeddisplaystyle} primitive@> primitive("textstyle",math_style,text_style); @!@:text_style_}{\.{\\textstyle} primitive@> primitive("crampedtextstyle",math_style,text_style+cramped); @!@:cramped_text_style_}{\.{\\crampedtextstyle} primitive@> primitive("scriptstyle",math_style,script_style); @!@:script_style_}{\.{\\scriptstyle} primitive@> primitive("crampedscriptstyle",math_style,script_style+cramped); @!@:cramped_script_style_}{\.{\\crampedscriptstyle} primitive@> primitive("scriptscriptstyle",math_style,script_script_style); @!@:script_script_style_}{\.{\\scriptscriptstyle} primitive@> primitive("crampedscriptscriptstyle",math_style,script_script_style+cramped); @!@:cramped_script_script_style_}{\.{\\crampedscriptscriptstyle} primitive@> @z