structInitImpl sname fields
 = do sayln' $ structInitProto sname ++ " {"
      sayln' $ "  memset(in, 0, sizeof(*in));"
      sayln' $ "}"
structInitImpl sname fields
 = do sayln' $ structInitProto sname ++ " {"
      sayln' $ "  memset(in, 0, sizeof(*in));"
      sayln' $ "}"
structInitImpl sname fields
 = do sayln' $ structInitProto sname ++ " {"
      sayln' $ "  memset(in, 0, sizeof(*in));"
      sayln' $ "}"