sup(0,A) :- A = "⁰".
sup(1,A) :- A = "¹".
sup(2,A) :- A = "²".
sup(3,A) :- A = "³".
sup(4,A) :- A = "⁴".
sup(5,A) :- A = "⁵".
sup(6,A) :- A = "⁶".
sup(7,A) :- A = "⁷".
sup(8,A) :- A = "⁸".
sup(9,A) :- A = "⁹".

sub(0,A) :- A = "₀".
sub(1,A) :- A = "₁".
sub(2,A) :- A = "₂".
sub(3,A) :- A = "₃".
sub(4,A) :- A = "₄".
sub(5,A) :- A = "₅".
sub(6,A) :- A = "₆".
sub(7,A) :- A = "₇".
sub(8,A) :- A = "₈".
sub(9,A) :- A = "₉".

sup(A) :- A = "¹²³⁴⁵⁶⁷⁸⁹⁰ⁱ⁺⁻⁼⁽⁾ⁿ".

sub(A) :- A = "₀₁₂₃₄₅₆₇₈₉₊₋₌₍₎".