module ShowFam where

class ShowFam l where
  showFam :: l ix -> ix -> String

printFam :: ShowFam l => l ix -> ix -> IO ()
printFam ix =  putStrLn . showFam ix