plots ts (colour:cs) ((lbl,pts):dims)
    = (toPlot
      $ plot_lines_style .~ solidLine 1 colour
      $ plot_lines_values .~ [zip ts pts]
      $ plot_lines_title .~ lbl
      $ def
      ) : plots ts cs dims
plots ts (colour:cs) ((lbl,pts):dims)
    = (toPlot
      $ plot_lines_style .~ solidLine 1 colour
      $ plot_lines_values .~ [zip ts pts]
      $ plot_lines_title .~ lbl
      $ def
      ) : plots ts cs dims
plots ts (colour:cs) ((lbl,pts):dims)
    = (toPlot
      $ plot_lines_style .~ solidLine 1 colour
      $ plot_lines_values .~ [zip ts pts]
      $ plot_lines_title .~ lbl
      $ def
      ) : plots ts cs dims