scanAndExtractFirst :: String -> Token
scanAndExtractFirst = head . fromJust . scan
scanAndExtractFirst :: String -> Token
scanAndExtractFirst = head . fromJust . scan
scanAndExtractFirst = head . fromJust . scan