parentBasesChain frame = frame : parentBasesChain (parentBases frame)
parentBasesChain frame = frame : parentBasesChain (parentBases frame)
parentBasesChain frame = frame : parentBasesChain (parentBases frame)