blackSco = str 1.5 $ sco black $ har 
    [ i4 0 1 0.7 220 6000 30 10
    , i4 0 1 0.7 330 8000 20 6
    ]
blackSco = str 1.5 $ sco black $ har 
    [ i4 0 1 0.7 220 6000 30 10
    , i4 0 1 0.7 330 8000 20 6
    ]
blackSco = str 1.5 $ sco black $ har 
    [ i4 0 1 0.7 220 6000 30 10
    , i4 0 1 0.7 330 8000 20 6
    ]