Given an array of words, return the longest word which can fit on a 7 segment display.

longest7SegmentWord(["knighthood", "parental", "fridge", "clingfilm"]) ➞ "parental"
longest7SegmentWord(["coding", "crackers", "innokodakademija", "celebration"]) ➞ "celebration"
longest7SegmentWord(["velocity", "mackerel", "woven", "kingsmen"]) ➞ ""