skat/AI/Test2.hs

import AI.Rulebased
import Pile

main :: IO ()
main = print $ length $ remove789s Hand3 testds