sixparamset :: [Param]
sixparamset = [ SixParam mass g 
                    | mass <- [1400.0] 
                    , g   <- [4.0]  ]
sixparamset :: [Param]
sixparamset = [ SixParam mass g 
                    | mass <- [1400.0] 
                    , g   <- [4.0]  ]
sixparamset = [ SixParam mass g 
                    | mass <- [1400.0] 
                    , g   <- [4.0]  ]