RosettaCodeData/Task/Four-is-magic/Mathematica/four-is-magic.math

magic[num_] := Capitalize[ StringRiffle[ Partition[
    FixedPointList[IntegerName[StringLength[#], "Cardinal"] &, IntegerName[num, "Cardinal"]],
    2, 1] /. {n_, n_} :> {n, "magic"}, ", ", " is "] <> "."]