passSecurity :: Machine -> [String] -> [String] -> String
passSecurity machine instructions items =
"You keep: " ++ (intercalate ", " keeps) ++ "\n\n" ++ (attemptSecurity machine instructions validDropset)
passSecurity :: Machine -> [String] -> [String] -> String
passSecurity machine instructions items =
"You keep: " ++ (intercalate ", " keeps) ++ "\n\n" ++ (attemptSecurity machine instructions validDropset)