Grid[FiniteGroupData["Quaternion","MultiplicationTable"],Frame->All]