compose[f_, g_][x_] := f[g[x]]
compose[Sin, Cos][r]