How i convert the following mathematica code to Maple

f1[t^m_] := Gamma [m + 1] t^(m - a[t]) /Gamma[m + 1 + a[t]];
f1[t] := Gamma [2] t^(1 - a[t]) /Gamma[2 + a[t]];

f1[p_Plus] := Map[f1, p]
f1[c_*f_] := c*f1[f] /; FreeQ[c, t]
f1[c_] := 0 /; FreeQ[c, t]

f1[x^2*t^2 + t + x]

gives

t^(1 - a[t])/Gamma[2 + a[t]] + (2 t^(2 - a[t]) x^2)/Gamma[3 + a[t]]

i need to plot tow functions but the legend not in top, bottom, left or right