RosettaCodeData/Task/Singly-linked-list-Element-insertion/Haskell/singly-linked-list-element-insertion-3.hs

class Node (value, successor)

  method insert (node)
    node.successor := self.successor
    self.successor := node
  end

  initially (value, successor)
    self.value := value
    self.successor := successor
end